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Call or write for a free catalog of products for the Timex Computer 








The FOOTE PRINT 
PRINTER INTERFACE 

for Centronics parallel printers 

works in both 2068 and Spectrum mode 

compatible with OS-64 &l Spectrum emulators 

EPROM socket and on/off switch on board 

works with both Tasman and Aerco driver software 

plugs into cartridge dock—door completely 
closes with cable running back under computer 

frees up rear edge connector allowing other 
peripherals to be used; less chance of a crash 

print driver software for LPRINT, LLIST, and 
COPY included for 2068 and Spectrum modes 

FootePrint Interface w/software & cable $39 • 95 
FootePrint with OS-64 option included $60.00 

Bare board & instructions only .$15 00 

Cable only for use with bare board.$15°° 


Zero Insertion Force Socket option add $8.00 


Summer 


TS Fair Special 



SOFTWARE 


TS2068 TS1000 


Bad gammon (Backgammon).$10.00 

Advanced Math (Calculus).$10.00 

Calorie Counter. $8.00 

U.S.A. (Pres. 8 States 8 Caps.).... $8.00 $5-00 
Gambler (poker). $8.00 ) 

CHR$ (char. 8 graphics generator) $10.00 *r 

Hangman TIC—TAC—TOE. $5.00 


The Best of SUM 

Some sample articles include: Building Your Own 
Spectrum Emulator, Repairing YourTS-1000, Word 
Processing Reviews for the 2068, UDGs on the TS- 
1000, Extensive Review of the Zebra Disk System, 
Adding a Keyboard to the 2068, and Enhancing the 
A & J Microdrive. 112 pages 

$ 10.00 




SOFTWARE 

P. O. Box 14655 
Gainesville, FL 32604 

<904> 338-1273 <9Ah-6P» ED7> 

All prices are pre-paid and include shipping charges. 

rPcinAnfc mncf onn cfafp cqIp*c fov 


The Best of SUM, Part II 

Articles include Building an EPROM Program¬ 
mer, Sprites on the 2068, Adding RGB to 2068, QL 
Word Processing, What’s Available for TS-1000, 
and much more. 60 pages 

♦7.00 


both for■ £15 



THE TINE DESIGNS AND FOOTE SOFTWARE BOOTHS 
THE NORTHWEST AND MID-WEST TIMEX SINCLAIR SHOWS 
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Time 


Designs Magazine Company 

29722 Hult Road 
Colton, Oregon 97017 

USA 

(503) 824-2658 

CompuServe ID# 71350,3230 


TIME DESIGNS MAGAZINE is published bi-monthly and 
is Copyright 1988 by the Time Designs Magazine Com¬ 
pany, Colton, Oregon 97017. All rights reserved. 
Reproduction of this magazine in whole or in part by any 
means without written permission is prohibited by law. 

SUBSCRIPTIONS: $16.95 a year for six issues (U.S. 
funds only), mailed in the U.S. All other countries 

please write for information on surface and air mail rates 

CUSTOMER SERVICE: Customer satisfaction is our 
goal. For subscription service problems, or any ques¬ 
tions and comments, please write or call. 

CHANGE OF ADDRESS: Please call or write our office if 
there is any change in your current mailing address to 
prevent delay or even loss of service. 

RENEWAL TIME? To determine your expiration date, 

simply read the date posted in the upper-right corner of 

your mailing label (magazine cover). For an example, 

“Nov/89” would indicate that the November/December 

1989 issue would be the last issue received. A form is 

provided elsewhere to renew your subscription. We also 

send one notice in case you forget. An early renewal is 

very much appreciated, and let us know we are doing an 
adequate job. 

NOTICE: Contributors to TIME DESIGNS are independent of the TIME I 
DESIGNS MAGAZINE CO., and opinions expressed in the contents of this 
publication are not necessarily those of the management staff or its adver¬ 
tisers. Time Designs Magazine Co. will not be held liable for any damage or 
consequences resulting from instructions, assertions of fact, review of pro¬ 
ducts or companies provided in the magazine’s content. It is recommended 
that anyone attempting to modify their computer or constructing an elec¬ 
trical project should seek help from more knowledgeable individuals. 
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24 hour 

ORDER LINE 
(503) 824-265* 

For books, Subscription 
and Renewals 


Sinclair SurCiCalist 


HANDBOOK 


The Sinclair Survivalist Handbook is 
a new 70 page book that is filled 
with previously un-oublished pro¬ 
gram listings and articles, written 
by regular contributor•s to TIME 
RESIGNS, for the TS1000/ZX81, 
TS1500, TS2068, and the Sinclair QL. 
Examples include: 'Adapting external 
keyboards to your TS1000", 'BASIC 
Line Delete Utility', 'Strategic 
Football", 'Fix Your TS2068 Space 
Bar', 'OS-64 Utilities', 'Little 
League Scheduler", "Homemade R0M- 
Switch', 'Draw Poker', ■QL Super- 
BASIC Tutorial', "Using Quill With 


The QL Printer', 
and much more! 
DESIGNS...you * 11 


"Inside 
If you 
like 


book. Order your copy today! 


the QL', 
like TIME 
this new 



9.95 




















































































Over 280 TIME DESIGNS readers responded to our 
recent survey. Which is approximately 11 percent of 
our circulation. Some of the results were most in¬ 
teresting. The rest of the results will conclude next 
issue. We sincerely hope that this data will provide 
developers of hardware and software, and the Timex 
Sinclair dealers with a better understanding of our 
TS user community. 


Average Age of TDM Subscriber: 45 
Oldest Reported Age: 79 
Youngest Reported Age: 22 

Male/Female Ratio: 22 Male/1 Female 

States of Highest TS User Concentration: 

California 
New York 
Pennsylvannia 
Florida 
Texas 

Ohio 

Illinois 

Virginia 

Michigan 


10 Most 

1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 
9. 

10 . 


Common Occupations of TS Users: 

Retired 

Engineer 

Electronic Technician 

Supervisory/Management 

Student 

Instructor 

Consultant 

Mi 1itary 

Sales 

Librarian 


Top 5 Hobbies of TS Users: 

1. Computers 

2. Electronics 

3. Photography 

4. Amateur Astronomy 

5. Gardening 


Other Computer Owned: 

1. TS1000 

2. TS2068 

3. ZX80 

4. TS1500 

5. QL 

Most Popular Printer: 

1. 2040 Thermal Printer 

2. Gorilla Banana 

3. Epson RX-80 

4. Star NX-10 

5. Panasonic KXP-1080 

Most Popular Mass Storage Device Used 

1. Cassette Tape 

2. Floppy Disk 

3. Microdrive Cartridges/Wafers 

4. EPROMs 

Most Popular TS2068 Disk Systems: 

1. Aerco FD-68 

2. Larken LKDOS 

3. Zebra FDD 

4. Oliger SAFE DOS 

5. Ramex MK 

0 

5 Most Popular Monitor Devices: 

1. Color and B/W TV • 

2. Magnavox RGB 

3. Zenith 

4. Sanyo 

5. Commodore 


Computer Used The Most: 

1. TS2068 

2. TS1000 

3. QL 

4. IBM (or compatible) 

5. Commodore 64 
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If only TIME DESIGNS were printed in color! Then 
we could show you what the actual "Sir Clive" screen 
dump (above) really looks like. It was produced using 
a program called THE ARTIST, a TS2068 computer, an 
OKIMATE 20 Color Printer, and a special interface and 
printing utility software. 

To back-track just a bit.. .a couple of years 
ago, a puzzled TDM subscriber sent a letter to the 
editor, and posed the question whether the OKIMATE 20 
could be used with the 2068. Seems that the Okimate 
was configured to operate with "most popular brands" 
of personal computers, with optional "Plug 'n Print" 
interface/software packages... a 11 of the brands, 
except the Timex (of course). 

Thanks to the research and development of John 
McMichael (who also adapted an inexpensive Commodore 
plotter to the 2068), Timex users no longer have to 
face discrimination. Using the Okimate 20, the 
Commodore "Plug 'N Print" package, and John's new 
"Commodore serial port emulation circuit board", high 
quality screen dumps can now be enjoyed in color. 
John also offers several print utility programs to 
help get the job done. 

Not only is the Okimate 20 a good color printer, 
but it is also suited for normal printer use 
(including NLQ mode). 

Information about the interface, and related 
2068 software can be obtained by sending a legal SASE 

to: John McMichael, 1710 Palmer Drive, Laramie, WY 
82070. 

The Okimate 20 must be purchased elsewhere, and 
is available everywhere. Try Sears, Target, Best, or 
Lyco Computer Inc. (1-800-233-8760). Typical discount 
price for printer and "Plug 'n Print" package is 
right around $180. 


DX7 
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MIDI FOR THE 2068 


Another frequently requested device for the 
TS2068 is a MIDI Interface. MIDI stands for "Musical 
Instrument Digital Interface". Which is the means for 
hooking up electronic synthesizer keyboards, drum 
boxes (and much more) to your computer. Other 
computer brands like the ATARI ST and IBM PC are very 

strong in the area of MIDI support, both hardware 
and software. 


MIDI is an invaluable tool for music students 
composers, and live performers. And since MIDI is - 
word-wide industrial standard among electronic musi 
instrument manufacturers and computer manufacturers 
it wouldn't matter if you had an ATARI or a SINCLAIR 
the hardware compatibility should be the same. 

Recently, Richard Hurd, a TDM subscriber and 
occasional contributor wrote, "I have had success 


implementing MIDI on my TS2068. I also would be happy 
to hear from anyone interested in this." 

Richard has purchased RAM Electronic's MUSIC 
MACHINE, a MIDI interface for the Soectrum. from 


MUSIC 


MACHINE, a MIDI interface for 
England (see review in the November 


Spectrum, from 
issue of ZX 


Computing), and also some accompanying MIDI software 
from a company called QUASAR. To operate the Spectrum 
hardware and software on the TS2068, Richard pur¬ 
chased John Mathewson's "Twister Board" for the rear 
expansion bus, and also used a Spectrum emulator. 

For further details, addresses, and even tips on 
ordering from Great Britain, send a SASE to: Richard. 
Hurd, PO Box 153, Warrenton. OR 97146. 


WHERE GOEST FRED?? 

Fred Nachbaur, formally of Nelson, British 
Columbia, Canada, and highly—respected authority on 
Sinclair computers, has taken several new turns. Most 
recently, he has accepted a position with a firm in 
Ottawa, and will be turning his TS1000/ZX81 product 
line over to other Timex Sinclair dealers. 

Fred's own company, Silicon Mountain Computers, 
will be renamed "Silicon Mountain Electronics", 
which, as the name implies, will pursue avenues of a 
more general electronic nature as well as computers. 

As a former IS so f t ware/hardware producer and 

supplier, Fred found that he lacked critical time and 

funding for development of various special projects, 

including one particular project...a new type of 
computer. 

Fred recently told TIME DESIGNS that, "It should 
be clearly understood, however, that this project is 
by no means a certainty at this point. It's not be¬ 
cause of the infamous "big IF", rather it depends on 
a whole lot of "little if's". I have carefully chosen 
a core of potential developers who have expressed an 
interest to investigate the potentials; IF we all 
agree on the route to take; IF we all find the time 
to do our parts; IF the economics fall into place; IF 
the result of our brain-pooling results in a 
marketable product; IF no one comes up with a better 
mouse before we build a better trap.. .then there will 
be a new computer. But don't believe anything you 
hear, unless you hear it from us. If it does happen, 
it will not be, as rumour has it, a Timex "clone". 
The new machine will have some common features, such 

as elegance in simplicity, but a new machine in its 
own right." 

Fred wants everyone to know that he will 


rrea wants everyone to know that he will 
continue to be involved with the ZX81 family of fine 

computers; as a user, writer, and hacker, but not as 
a commercial supplier of TS software. 


will 

fine 
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Nigel Searle, a close as: 
Sinclair for over sixteen ; 
General Assembly of the Boston 


ociate of Sir Clive 
ears, announced to the 
Computer Society, on 





June 22, that Sir Clive was involved in developing 
some highly secretive computer equipment, and that he 
(Sir Clive) would personally announce detailed plans 

of the project and launch it world-wide at an 
upcoming BCS meeting. 

The only speculation and possible clues about 
the new computer equipment are coming out of the 

British press. Supposedly, Sir Clive is developing a 
new desktop computer based on transputer chip tech¬ 
nology, similar to the INMOS transputer, only Sir 
Clive felt that the INMOS was unsuitable for his 
project, and went out and developed his own 
transputer. The new desktop will reportedly out¬ 
perform any PC technology currently available, 
processing data more than 10 times faster than an IBM 
AT. The new machine will be marketed under the 


CAMBRIDGE COMPUTER LTD label, just as the 288 Laptop 



Saturday, August 27 and Sunday, August 28, marks 
the date for the upcoming MIDWEST SINCLAIR COMPUTER 
CONFERENCE, which will be held at the Beck Center in 
Lakewood, Ohio (a suburb of Cleveland). 

The Conference will feature TS exhibitors like 
Zebra Systems Inc., Sharp's Inc., Time Designs, and 
others; as well as seminars by Bill Ferrebee, James 
DuPuy, Basil Wentworth, Dave Hoshor, Thomas Simon, 
and others. 

For complete details, info on accomodations 
available in the area, pre-registration forms, and 
more, send a SASE to: Andy Kosiorek, 2192 Glenbury 
Ave., Lakewood, OH 44107. For alternate information 
contact: James DuPuy, 6514 Bradley Ave (down), Parma, 
OH 44129, (216) 661-4105. 

If you live in Ohio, any of the surrounding 
states, the midwest proper, Ontario (Canada), most 
anywhere on the eastcoast and southern states (or 
anywhere!)...come to the show and exchange ideas and 
information with fellow Timex Sinclair users. 



PODNUH is a clever name for a new TS206S 
program, which has been thoroughly tested since its 
conception in 1986. This Machine Code program in¬ 
cludes a BASIC programmer (called "Supra-Basic") with 
a swift and reliable method of passing parameters to, 
and calling other Machine Code programs. These 
"other" programs may be customized routines, 
extensions of BASIC, utility programs, or complete 
applications programs. A PODNUH (version 1) package 
is available for $17.00 + $2.00 postage, which in¬ 
cludes selectable type fonts, a perpetual calendar, 
note pad, scientific calculator, and more. "Add-On" 
options will continue to be added, such as WYNN DOE 
(a windowing utility) for $5.00. The author is 
also interested in sharing his program with pro¬ 
grammers or user groups, and is offering a 
disassembled listing with documentation for $1.00, 
with the hope that PODNUH is adopted as a new 2068 
standard. Send check or money order to: Ron Ruegg, 
37529 Perkins Road, Prairieville, LA 70769. 

Many Timex fans have heard or read about the 
research that William J. Pederson of THE WIDJUP CO. 
has conducted on the TS2068 ROM/Operating System, 
from articles in several user group newsletters and 
magazines. Now there is a 160 page book by Mr. 
Pederson called "TOURING THE TS2068 ROM OPERATING 
SYSTEM". While this type of book isn't for everyone, 
it will be of interest to programmers and 2068 


hacker-types everywhere. It contains a complete 
annotated disassembly of the Home ROM and the XROM, 
along with several other tables of data. Mr. Pederson 
offers a theory which one may or might not accept 
about the development of the Timex ROM and bank¬ 
switching routines...but it all makes for interesting 
reading. The book is priced at $20.00 + $3.00 postage 
and is available from: The WIDJUP Co., 1120 
Merrifield S.E., Grand Rapids, MI 49507. 

Arnold Ramaker, PO Box 263, Plymouth, WI 53073, 
(414) 893-8865, is busy designing an expansion box 
for the ZX81, TS1000, TS1500, TS2068, and Sinclair QL 
computers. Any one of the computers can be placed 
inside the supplied case. The expansion box will 
feature multi-expansion slots and provisions for 
attaching a monitor, and several other peripherals. 
Mr. Ramaker would like to hear from folks who are 
interested in purchasing an expansion box like this, 
to get an idea on what price range and any additional 
features people would like to see incorporated. 

Matthew Zenkar, 142 Hoicroft Rd., Rochester, NY 
14612, (716) 663-2048, is offering a utility program 
which will allow QL owners who use the Digital Pre¬ 
cision Desktop Publisher software package, to dump 
their files to Hewlett Packard-compatible laser 
printers. Write for information and price. 

The S.A.I.N. (Sinclair Artificial Intelligence 
Network) special interest group is now forming. It is 
for any Sinclair user interested in A.I., Micro- 
PROLOG, LISP, and other related topics. For further 
information, send a SASE to: Pete Fischer, PO Box 
2002, Tempe, AZ 85281, or call the TIMEWARP BBS, 
(617) 481-0555 (setting: 8/1/N, 300 baud). 


LARKEN PRESENTS 

UP TO 25£>K RAM -for your 2Q6>Q 

- Expand your 2068 with up to 256K of battery backed up Raa 

- Larken Operating system lets you SAVE to memory, just like 
cassette or disk. (Floppy disk not required ) 

- All Cassette commands supported. Very Fast and Reliable . 

- Can be used with ALL existing 2068 or Spectrum software. 

- Uses the new 32K static ram chips, 62256LP or 43256LP 

- System consists of Larken Cartridge and Rear Memory Board. 


« PRICE - MEMORY SYSTEM with 64K Ram . $129.00 

- MEMORY SYSTEM with OK . $ 95.00 


LARKEN 2063 FLOPPY DISK SYSTEM 
- The most advanced Dos available for the 2068/Spectrui . LKdos 
uses ALL Commands such as CAT MERGE ERASE LOAD SAVE PRINT OPEN 
etc. Also can support RAMDM up to 256K arid Sequential / Random 
Access Files (with additional software). The Larken Disk 
Interface can handle up to 4 floppys for up to 12 MegaBytes of 
storage. Also NMI Snapshot Save Button and KEMPSTON Joystick 
port on interface Also 10 Extended Basic commands for Windows 
and Graphics. 

AERCO RAMEX or OLIGER Disk users can add LKdos for more 
commands, Ramdisk and access to all LKdos software 


« PRICE - Larken Floppy Disk System.. $119.95 

- Floppy Disk IF with 0 K Memory board .. $169.95 

- Larken Disk Editor . $ 15.00 

- Sequential/Random access files.. $ 15.00 

- Xmodem to Disk Modem package .. $ 15.00 

- ZX-81 Floppy Interface ( 15 left ) ... $ 99.95 

- LKDOS for Aerco,Ramex or Qliger Disk IF $ 59.95 
(All prices are US , Add 6$ Shipping ) 


LARKEN ELECTRONICS RRI2 NAVAN ONTARIO CANADA K4B-1H9 

(613)-835-2680 
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TS1000/TS1500/ZX81 Program 


To Help 



Telephone 



by David Hartman 


The following program develops words based on 
the last four digits of telephone numbers. I have 
found that a phone number is remembered as a word, 
easier than the four numbers. 

This program will run on a TS1000 or ZX81 with a 
16K RAM pack installed, or on a TS1500. This program 
should also work with a TS2068, with only minimal 
changes to the program. 


Those users with a 16K TS1000/ZX81, should end 
up with "13505" printed on the screen, after entering 
the following line: PRINT (PEEK 16388 + 256 * PEEK 16 
389) - (PEEK 16396 + 256 * PEEK 16397) 

If "13505" is your answer, then you have most 
likely typed in the program listing correctly. 


Line Uses: 


1-24: Opening screen 

25-40: Instructions and input 

50-70: Check for *1’ and 7 O’ 


VARIABLES: 


80: 
110-200 
202-255 
260-310 
500-575 
600-640 


8000 

Assemble words by slicing 
Print results on screen 
Copy and continue 


Assemble words if a 7 1 7 or 7 0 7 are involved 
Re-establish phone number for printing 
5010-5040: Initialize, set up arrays 
8000-8040: Not useful message 


n$: Holds entered phone number 

w$: Holds all possible letter combinations 

1$: Holds telephone dial information 


f: Flag indicates if a 7 1 7 or 
(Important to know because 1 and 
xs Increment control 
J, k, 1, ms For/Next control 


7 0 7 is in the number 

do not have assigned letters) 


1 REM WORDS FROM TELEPHONE NUMBERS 

2 REM 105/1.1 3/20/88 

7 SLOW 

8 CLS 

10 PRINT AT 6,0; "WORDS FROM TELEPHONE NUMBERS";AT 14,0;"LETS SEE WHAT YOUR NUM 
EER SPELLS" 

15 PRINT 
GOSUB 


20 

22 

24 

25 
27 
30 

THEY 


FOR J=1 TO 
NEXT J 
CLS 


AT 21,05"(C) 
5000 

60 


1988 DAVID HARTMAN" 


sm 

m 




>V\ 


mm 






X. 


X a • ■ 
\\ 


•>: 


PRINT TAB 8;"TELEPHONE WORDS",,, 

THE LAST FOUR DIGITS OF YOUR TELEPHONE NUMBER TO SEE","WHAT 
USE THAT WORD WHEN SOMEBODY WANTS YOUR","NUMBER. THEY PROBABLY 
WILL BE","ABLE TO REMEMBER IT WITHOUT","WRITING IT DOWN." 

40 INPUT N* 


y. 


r 

XV 


PRINT "ENTER 
SPELL. THEN, 


‘.'Sy 




>v*sV- 


M 










43 

45 

50 

65 

67 

68 
70 
80 
85 
90 


OR N$(J)="0" THEN LET F=F+1 
THEN LET N$(J)="Q" 

THEN LET N$(J)="Z M 


95 

97 

100 

110 

115 

120 

130 

140 

150 

153 

167 


169 

170 
180 
190 
200 
202 
203 


IF LEN NIK 4 THEN GOTO 90 
LET F=Q 
FOR J=1 TO 4 
IF N$(J)="1" 

IF N$(J)="1" 

IF N$ <J) = "0" 

NEXT J 

IF F>1 THEN GOTO 8000 
GOTO 110 

PRINT AT 15,0;"YOU DID NOT ENTER A 4 DIGIT", 
"NUMBER. PLEASE TRY AGAIN." 

FOR J=1 TO 60 
NEXT J 
GOTO 25 
LET X=1 
FAST 

FOR J=1 TO 3 
FOR K=1 TO 3 
FOR L=1 TO 3 
FOR M=1 TO 3 
IF F THEN GOTO 500 

LET W$(X)=L$(VAL N$(1),J)+L$(VAL N*(2), 

K)+L$(VAL N*<3),L)+L*(VAL N$(4),M> 

LET X = X +1 
NEXT M 
NEXT L 
NEXT K 
NEXT J 
CLS 
SLOW 


5 


205 

210 

212 

215 

220 


GOSUB 
PRINT 
PRINT 
LET J 


600 

"HERE ARE THE CHOICES FOR ";N*;" 


ll 


1 


* 



230 

240 

245 

250 

255 

260 

270 

280 

290 

300 

310 


FOR K=J TO J+5 
IF K=82 THEN GOTO 260 
PRINT W*(K)5"." ; 

NEXT K 
PRINT 
LET J=K 
GOTO 220 

PRINT AT 21,0;"(C) COPY?" 
INPUT A$ 

IF A$<>"C" THEN GOTO 25 
PRINT AT 21,0;" 

COPY 

RUN 


500 IF N$(1)="Z H THEN LET W$(X)="0"+L$(VAL N$ 

(2),K)+L$(VAL N*<3>,L)+L^(VAL N$(4)»M) 

515 IF N$(1)="Q" THEN LET W$(X)="1"+L$(VAL N$ 

(2),K)+L$<VAL N^(3),L)+L$(VAL N$(4),M) 

520 IF N$(2)="Z" THEN LET W$(X)=L$(VAL N$(l), 

J)4-"0 m +L$(VAL N$(3) ,L)+L*<VAL N$(4),M) 








530 

IF N$(2)=" 

Q " 

THEN 

LET 

W$(X)=L$(VAL 

N$(1) , 


J> + "1"+L*(VAL N$(3),L)+L$(VAL N*(4),M) 

540 

IF N$<3>=" 

Z M 

THEN 

LET 

W$(X)=L$(VAL 

N$(1), 


J)+L$(VAL 

N$ (2) , K ) + '' 0 

"+L$(VAL N$(4),M) 

550 

IF N$(3)=" 

Q" 

THEN 

LET 

W$(X)=L*(VAL 

N$(1), 


J)+L$(VAL 

N*(2),K)+ H 1 

H +L$(VAL N$(4),M) 

560 

IF N$(4)=" 

Z" 

THEN 

LET 

W$(X)=L*(VAL 

N*(1), 


J)+L$(VAL 

N*(2),K)+L$(VAL N$(3),L) 

+ " 0 " 

570 

IF N$(4)= M 

Q" 

THEN 

LET 

W$(X)=L$(VAL 

N*(1 ) , 


J)+L$(VAL 

N$(2) , K)+L$(VAL N$(3),L) 

+ ■' 1 " 

575 

GOTO 169 






580 

STOP 






600 

FOR J=1 TO 

i 

' 4 





610 

IF N$(J)=" 

Q " 

THEN 

LET 

N$(J)="1" 


620 

IF N$(J)=" 

Z" 

THEN 

LET 

N$(J)="0" 


630 

NEXT J 






640 

RETURN 

V 






5010 

DIM L$(10, 

3) 





5015 

DIM W$(81, 

4) 






5020 

5022 

5024 

5026 

5028 

5030 

5032 

5034 

5036 

5038 

5040 

8000 

8005 

8010 


8020 

8030 

8040 

8999 

9000 
9010 


LET L*<1>="" 

LET L$(2)="ABC" 

LET L$(3)="DEF" 

LET L$(4) = "GHI" 

LET L$(5 ) = "JKL" 

LET L$ (6) = " MNO" 

LET L$(7) ="PRS“ 

LET L$(8) = "TUV" 

LET L$(9) ="WX Y" 

LET L$(10)="" 

RETURN 

CLS 

GOSUB 600 

PRINT AT 14,05"YOUR NUMBER, ";N*; M , 
TOO MANY ONES OR ZEROS TO BE USEFUL 

IN CREATING A WORD_SORRY ABOUT 

FOR J=1 TO 100 
NEXT J 
GOTO 25 
STOP 

SAVE M TELEWORDS" 

RUN 


HAS 
THAT. " 




by William C. Andrews 


This is a TS 2068 program to play FIVE CARD STUD POKER 
against the computer, the dealer. After an ante you bet on each 
card dealt. The dealer matches your bet. You may go out at any 
time by betting "0". You must pay to see the hole card if 
needed. The dealer is also the banker and will keep track of the 
game’s progress. 

When typing the program please note that letters in 
quotes in lines 6010, 6030, 6050, 6140, 7020, 9991 and the last 
letter in lines 8001 to 8052 are in GRAPHIC mode for UDG’s. Line 
9992 clears color from the screen for working on the program. 
Line 6000 selects cards randomly and line 6110 prevents 
duplication. Cards are shuffled for each game. 

For a tape of this program send $ 10.00 pp to me at 30 
oak Knoll Drive, San Anselmo, CA. 94960. 


10 L.ET ST = 100 

15 IF ST< =0 THEN GO TO 4670 

20 BORDER 4: PAPER 4s CLS s LE 
T T=0s GO SUB 8000 

25 PAPER 7s FOR N=2 TO 14s PRI 
NT AT N,0;" 

"s NEXT N 

30 LET PR=0s LET DR=0s LET PL« 
0s LET DL=0s DIM X*(6)s DIM Y*<6 
) 

35 RANDOMIZE 

40 PRINT PAPER 4;" "; PAP 

ER 2; INK 9; BRIGHT 1; AT 0,5;" F 
IVE CARD STUD POKER "j BRIGHT 0; 

PAPER 4;" 

45 INK 1 



60 PRINT PAPER 4;K* 

65 PRINT INK 0;" YOUR HA 

ND DEALERS HAND INK 1;"1 

• I 

70 PRINT AT 3,0;L*;AT 3,0; 'T" J 
AT 3,31; "T 

75 FOR 1=1 TO 6 

80 PRINT "|"j TAB 31;"i";TAB 3 
1; TAB 31; " 

85 NEXT I 
90 FOR 1=2 TO 14 
95 PRINT AT 1,15; PAPER 7;"B" 
100 NEXT I 


105 PRINT PAPER 4;L$ 

110 FOR N=16 TO 21s PRINT AT N, 
0; PAPER 4;" 

"s NEXT N 
115 GO SUB 4950 
120 INK 0 

125 LET P=0s LET D=0 
130 PRINT FLASH 1; PAPER 6;AT 
17,13;" ANTE "s GO SUB 4770 
135 PAUSE 60 

140 LET H=0s LET A=2s LET B=4s 
GO SUB 6000 

145 LET P <1)=Vs LET X*(1)=A*(F, 
4) 

150 LET A=8s GO SUB 6000 
155 LET P(2)=Vs LET X*(2)«A*(F, 
4) 

160 LET H=ls LET A=18s GO SUB 6 
000 

165 LET H=0s LET A=24s GO SUB 6 
000 

170 LET A»2s LET D(2)=Vs LET Y* 
(2)=A$(F,4) 

175 GO SUB 4000 

180 GO SUB 4750 

200 LET B=8 

210 FOR K=2 TO 8 STEP 3 
220 LET A=K 
230 GO SUB 6000 

240 GO SUB 260+K 

250 GO SUB 4000+<K*10) 

251 GO SUB 4280 

252 IF K>2 THEN GO TO 358 

6 



255 GO TO 300 
260 NEXT Ks GO TO 400 
262 LET P(3)=Vs LET X*(3)=A*(F, 
4)s RETURN 

265 LET P(4)=Vs LET X*(4)»A*<F, 
4)s RETURN 

268 LET P<5)=Vs LET X*(5>«A*(F, 
4)1 RETURN 

300 FOR 1-18 TO 24 STEP 3 

310 LET A=I 

320 GO SUB 6000 

330 GO SUB 360+((1/3)-5) 

340 GO SUB 4300+(1+2) 

345 IF 1=24 THEN IF DR>=1 AND 
DR>*PR AND DL>PL THEN GO TO 511 
0 


350 GO SUB 4750 

355 GO TO 260 

358 NEXT I . 

360 GO TO 400 

361 LET D(3)=Vs LET Y*(3)=A*(F, 
4)8 RETURN 

362 LET D(4)=Vs LET Y*(4)»A*(F, 
4)i RETURN 

363 LET D(5)=Vs LET Y*(5)=A*(F, 
4)i RETURN 

400 LET B=4s LET A=18 

410 GO SUB 6000 

420 LET D(1)»Vs LET Y*(1)=A*(F, 
4) 

430 GO SUB 4400 

435 GO SUB 4630 

440 GO TO 5000 
1000 DIM A(5)s FOR N=1 TO 5 
1010 LET A(N)—P(N) . 

1020 NEXT Ns GO SUB 1150s RETURN 


1030 DIM A(5)s FOR N=1 TO 5 
1035 LET A(N)=D(N) 

1140 NEXT Ns GO SUB 1150s RETURN 


1150 LET STR=0 s FOR N=1 TO 4 
1160 FOR M*1 TO 5-N 
1170 LET C=A(M) 

1180 LET D=A(M+l) 







1190 IF C<«D THEN GO TO 1220 

1200 LET A(M)-D 

1210 LET A (M+l)-C 

1220 NEXT M 

1230 NEXT N 

1240 FOR N-2 TO 5 

1250 IF A(N)«A(N- 1)+1 THEN GO T 
0 1270 

1260 return 
1270 NEXT N 

1280 LET STR-1i RETURN 

3999 STOP 

4000 IF P(2)»P(1) THEN LET PL-P 

(2) « GO TO 4150 
4010 RETURN 

4020 IF P(3)-P( 1 > OR P(3)-P<2) T 
HEN LET PL-P(3)i GO TO 4150 

4021 RETURN 

4030 IF PR -1 THEN IF P(3)-P(l) 
AND P(3)-P(2) THEN LET PL-P(3)i 
GO TO 4190 

4040 RETURN 

4050 IF PR -1 THEN IF P(4)-P(l) 
AND P(4)-P(2) OR P(4)-P(1) AND P 

(4) -P(3) OR P(4)-P(2) AND P(4)-P 

(3) THEN LET PL-P(4)i GO TO 419 
0 

4060 IF P(4)=P( 1 ) OR P(4)*P(2) 0 

R P (4) -P (3) THEN LET PL-P(4)i G 
0 TO 4150 

4070 RETURN 

4080 IF PR-3 THEN IF P(5>=P(1) 
AND P(5)OP(4) OR P(5)«P(2) AND 
P (5) < >P (4) OR P (5) =P (3) AND P(5> 

< >P (4) OR P (5) -P (4) AND P(5)OP( 

3) THEN LET PL«P(5)i GO TO 4200 
4090 IF PR-3 THEN IF P(5)«P(2) 
OR P <5)-P(3) OR P(5)-P(4) THEN 
LET PL-P(5)i GO TO 4200 

4100 IF PR-2 THEN IF P(5)«P(1) 
AND P(5)-P(2) OR P <5)«P( 1 ) AND P 

(5) -P(3) OR P(5)-P( 1 y AND P<5) 
-P<4) OR P(5)-P <2) AND P 

(5)»P(3) OR P(5)-P(2) AND P(5) 
=P(4> OR P(5)-P(3) AND P<5)-P(4> 
THEN LET PL-P(5)i GO TO 4190 
4110 IF PR -1 THEN IF P(5)-P(l) 
AND P(5)*P(2) OR P (5)-P( 1 > AND 
P <5)-P(3) OR P(5)-P( 1 ) AND P(5) 
“P<4> OR P(5)-P(2) AND P(5>« 

P<3> OR P(5)®P(2) AND P(5)«P( 

4) OR P(5)-P(3) AND P(5)-P( 

4) THEN LET PL-P(5)r GO TO 4190 
4120 IF P(5)-P( 1 > OR P(5)-P(2) 

OR P <5) -P (3) OR P (5) -P (4) THE 
N LET PL-P(5)s GO TO 4150 
4140 RETURN 
4150 LET PR-PR +1 

4160 IF PR -1 THEN PRINT INK 2; 
AT 16,2|"ONE PAIR"j INK 1jAT 17, 
2; " ■WVWW" i BEEP .3,10 
4170 IF PR-2 THEN PRINT INK 2; 

AT 16,2j"TWO"i BEEP .3,10! 
BEEP .3,10 
4180 RETURN 
4190 LET PR-PR +1 
4200 LET PR-PR +1 

4210 IF PR-5 THEN GO TO 4260 
4220 IF PR-3 THEN PRINT INK 2; 
AT 16,1|" THREE ";AT 17,lj"0F 
A KIND" ; INK 1; AT 18,15" .V.V.NVV 

■■"I BEEP .2,10: BEEP .2,10! BEEP 

. 2 , 10 

4230 IF PR-3 THEN RETURN 
4240 IF PR-4 THEN PRINT INK 2j 
AT 16,15" FOUR "5 AT 17,lj"0F 
A KIND"; INK 1; AT 18 , 15 " AWAW 
■■"1 BEEP .2,10! BEEP .2,10! BEEP 
.2,10! BEEP .2, 10 
4250 RETURN 

4260 IF PR-5 THEN PRINT INK 2j 
AT 16,05"FULL HOUSE"; INK 1 5 AT 1 
7,0;" -V.V.V.V.V" j BEEP .2,10! BE 
EP .2,10! BEEP .2,10! BEEP .2,10 
1 BEEP .2,10! BEEP .2,10! 

BEEP .2,101 BEEP .2,10! BEEP 
. 2 , 10 

4270 RETURN 

4280 IF X*(1)«X*(2> THEN IF X$( 


2)»X$(3) THEN IF X*(3)«X*<4) TH 
EN IF X*(4>-X*<5> THEN LET PR- 
6 

4290 IF PR -6 THEN PRINT INK 2j 
AT 16,1;" FLUSH "j INK 1;AT 17 
, 1 j " AV.V.V.V" I FOR N-l TO 10! B 
EEP .2,10! NEXT N 

4291 GO SUB 1000! IF STR-1 THEN 
LET PR-7 

4292 IF PR-7 THEN PRINT INK 2; 
AT 16,1 5 "STRAIGHT "5 INK 1;AT 17 
, 1 5 ".V.V.W.V" I for N-l TO 10! B 
EEP .2,10! NEXT N 

4300 RETURN 

4320 IF D(3)-D(2) THEN LET DL 
“D(2)i GO TO 4490 

4321 RETURN 

4323 IF DR -1 THEN IF D(4)-D<2) 
AND D(4)-D <3) THEN LET DL-D(4)i 

GO TO 4540 

4324 IF D(4)-D(2) OR D(4)»D(3) T 
HEN LET DL-D(4 )1 GO TO 4490 

4325 RETURN 

4326 IF DR-3 THEN IF D<5>»D<2 

> AND D <5)-D(3) AND D(5)»D<4) TH 
EN LET DL-D(5)i GO TO 4540 
4370 IF DR-1 THEN IF D(5)=D 
(2) AND D(5)-D(3) OR D(5)-D(2) A 
ND D(5)«D(4) OR D(5)«D(3) AND D< 

5)-D <4) THEN LET DL-D(5 )1 GO TO 
4540 

4380 IF D(5)-D(2) OR D(5>- 
D(3) OR D(59-D(4) THEN LET 
DL-D(5>! GO TO 4490 
4390 RETURN 


4400 IF DR-3 THEN IF D<1)«D(2 
) AND D(1)< >D(5) OR D(1)-D(3) AN 
D D <1)< >D(5) OR D(1)—D(4) AND 
D <1)< >D(5) OR D <1)—D(5) AND D(l) 

<>D<4> THEN LET DL-D< 1)1 GO TO 
4540 

4410 IF DR-2 THEN IF D(1)«D(2) 

OR D(1)«D(2) OR D(1)=D <3) THEN 

LET DL-D(l)i GO TO 4530 

4420 IF DR -1 THEN IF D(l)-D(2) 

AND D(2)-D(3) OR D(l)-D(2) AND 

D(2)-D(4) OR D(1)-D(2) AND 

D(2)-D(5) OR D(1)-D(3) AND D 

(3)*D <4) OR D(1)-D(3> AND D<3) 

-D(5) OR D(1)*D(4) AND D<4>* 

D(5) THEN LET DL-D( 1)1 GO TO 45 
40 

4430 IF DR -1 THEN IF D(1)«D(2> 

OR D < 1) -D (3) OR D (1) -D (4) OR D(1 

)-D(5) THEN LET DL-D(1 )1 GO TO 
4460 

4440 IF D(1)-D( 2 ) OR D(1)«D(3> 0 

R D(1)-D(4) OR D(1)-D(5) THEN L 

ET DL-D( 1)1 GO TO 4460 

4450 RETURN 

4460 LET DR-DR +1 

4480 GO TO 4500 

4490 LET DR-DR +1 

4500 IF DR -1 THEN PRINT INK 2j 
AT 16,21 5 "ONE PAIR"; INK 1 5 AT 17 
,21;" -V.W.W s BEEP .3,2 
4510 IF DR-2 THEN PRINT INK 2\ 

AT 16,21;"TWO": BEEP ,3,2i BEEP 
.3,2 


r*\ 





®est 



M 


• t 


crater 
"altaz 
"udg 
“son 
"windows 
"cfe/b 
"cfe/ac" 
PLUS this 
"w&p" 


It 


ft 


3-D mathematical plot of the moon's surface (appeared in TDM J/A *85) 
Converts astronomic coordinates to altitude/azimuth (in TDM N/D *85) 
Ultra-easy designer graphics for redesign of U.D.G.s (in TDM J/A *86) 
"udg" version 2 allows multiple foots and much more (in TDM N/D *86) 
BASIC full-screen window facility ♦ restores screen (in SWN N/D ’86) 
BASIC Classy Front End new fonts utility (as appeared in TDM M/A *87) 

Complete Classy Froot Sod foots M.C. version (as in TDM J/A-N/D *87) 
addition if you wish: 

WiD BINGHAM^S , ^EST e " o 0 ®* 1 ®*®—"itb "ofe/so" (New this issue) 

BINGHAM’S BEST* with’WINDOWS'PORTHOLES!I!;!;]]12!95 p£d 


JAZZOFIRK INCLUDES: 


M 


"UDG-*- 

cfe/mc 

"w&p 


M 


it 


M 


"son" of udg program as found in BINGHAM’S BEST 


The popular & useful ___ _ _____ ^ ^ 

Complete M.C. version of Classy Front End (use alone or with "wAp") 

T MC * ver8ion Windows fc Portholes (stand-alone also) 

JAZZOFIRE. . . 9.95 ddc! 


1 •» « » LAJ 


Mail all orders ”to: 
PAUL BINGHAM 
P.O. BOX 2034 
MESA, AZ 85214 

(please US funds only) 
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4520 RETURN 

4530 LET DR=DR +1 

4540 LET DR-DR+l 

4550 LET DR=DR+1 

4560 IF DR=5 THEN GQ TO 4610 

4570 IF DR=3 THEN PRINT INK 2; 

AT 16,21;" THREE ";AT 17,21;"0 

F A KIND"; INK 1; AT 18,21; "MW 

■VW" i BEEP .2,2s BEEP .2,2: BE 

EP .2,2 

4580 IF DR™3 THEN RETURN 
4590 IF DR=4 THEN PRINT INK 2; 
AT 16,21;" FOUR ";AT 17,21;"0 
F A KIND"; INK 1; AT 18,21; ".WAP 
AW" i BEEP .2,2s BEEP .2,2* BEE 
P .2,2s BEEP .2,2 
4600 RETURN 

4610 IF DR*5 THEN PRINT INK 2; 
AT 16,21;"FULL HOUSE";AT 17,21;" 
AV.V.VAV I FOR N=1 TO 8 s BEEP 
.2,2s NEXT N 
4620 RETURN 

4630 IF Y*(1)=Y*(2> THEN IF Y$< 
2)«Y*(3) THEN IF Y*(3)«Y*<4) TH 
EN IF Y*(4)»Y*(5) THEN LET DR» 
6 

4640 IF DR =6 THEN PRINT INK 2; 
AT 16,21;" FLUSH "; AT 17,21;"." 
.V.V.V.V 11 s BEEP .2,2s BEEP .2, 

2t BEEP .2,2s BEEP .2,2s B 
EEP .2,2s BEEP .2,2s BEEP .2,2 
4650 60 SUB 1030s IF STR =1 THEN 
LET DR»7 

4655 IF DR»7 THEN PRINT INK 2; 
AT 16,21;" STRAIGHT ";AT 17,21;" 
|V,V,V,V,V'■ 3 FOR N*1 TO 8 ; BEEP 
.2,2s NEXT N 
4660 RETURN 

4670 BORDER 6 s PAPER 6 s CLS 
4680 PRINT INK 0;AT 9,10;"YOU’R 
E BROKE";AT 11,1;"SEE YOUR BANKE 
R AND COME BACK." 

4690 PAUSE 0 
4700 STOP 

4710-PRINT AT 19,0;"YOU NOW 
";AT 20,0;"HAVE-* ";ST 
4720 IF ST<10 THEN PRINT AT 20, 
8 ;" " 

4730 IF ST<100 THEN PRINT AT 20 
,9;" " 

4740 IF ST<=0 THEN GO TO 4670 
4750 PRINT FLASH 1 ; PAPER 6 ;AT 
16,13;" BET " 

4760 PRINT AT 17,15;" » 

4770 PRINT AT 19,0;"YOU NOW "; 
AT 20,0;"HAVE-* ";STs IF ST<100 
THEN PRINT AT 20,9;" " 

4780 INPUT W 

4790 PRINT AT 16,13;" 

4800 LET W=INT W 

4810 IF W>10 THEN PRINT AT 17,1 
3;"SORRY,";AT 18,13;"LIMIT";AT 1 
9,11;" ";AT 19,13;"* 10" 

4820 IF W>10 THEN PAUSE 150 
4830 IF W>10 THEN PRINT AT 17,1 
3;" "; AT 18,13;" ";AT 

19,11;" " 

4840 IF W>10 THEN GO TO 4740 
4850 IF W<1 THEN PRINT AT 16,11 
J PAPER 5; FLASH lj" YOU ";A 
T 17,11;" CHOSE ";AT 18,11;" 

TO GO ";AT 19,11; " OUT! "s B 
EEP 1,-15; PAUSE 150; GO TO 5120 
4860 LET ST=ST-W 
4870 LET T=T+2*W 

4880 PRINT AT 17,13;" ";AT 

18,13;" ";AT 19,11; " 

"; AT 17,13;"* ";W 
4890 PRINT AT 20,7;ST 

4900 IF STC10 THEN PRINT AT 20, 
8 ; " » 

4910 IF STC100 THEN PRINT AT 20 
,9;" " 

4920 IF T<100 THEN PRINT AT 19, 
11;"TOTAL**";T 

4930 IF T>=100 THEN PRINT AT 19 
,11;"TOTAL*";T 


4940 RETURN 

4950 FOR 1*16 TO 20 

4960 PRINT AT 1,10; PAPER 4;" I"; 
AT 1,20; "■ " 

4970 NEXT I 

4980 PR INT AT 15,10; PAPER 4;"TH 

4985 FOR N=16 TO 19s PRINT AT N, 
11; PAPER 7; INK 1; " * 

NEXT N 

4990 PRINT AT 20,10; PAPER 4; " I" 

; PAPER 0; INK 9;" THE POT "; PA 
PER 4;"I" 

4995 RETURN 

5010 IF F'R>DR THEN GO TO 5060 
5015 IF DR>PR THEN GO TO 5110 

5020 IF PR=0 AND DR=0 THEN GO T 
0 5130 

5030 IF PR=DR AND PL>DL THEN GO 
TO 5060 

5040 IF PR*DR AND DL>F‘L THEN GO 
TO 5110 

5050 GO TO 5130 
5060 PAUSE 80 

5070 PRINT FLASH 1; INK 1;AT 16 
,1;" WINNER "; FLASH 0; INK 0;A 
T 17,1;" ";AT 17,3;"* "; 

Ts FOR N*1 TO 8s BEEP ,1,10s NEX 
T N 

5080 LET ST=ST+T 
5090 PRINT AT 20,7;ST 
5100 GO TO 5130 
5110 PAUSE 80 

5120 PRYNT FLASH 1; INK 1;AT 16 
,21;" WINNER "; FLASH 0; INK 0; 
AT 17,21;" ";AT 17,23;"* 

"jTs FOR N*1 TO 8s BEEP .1,-101 
NEXT N 

5130 PRINT AT 16,11; PAPER 6; FL 
ASH 1;" PLAY »;AT 17,11;" ANO 
THER ";AT 18,11;" HAND? ";AT 1 
9,11;" (Y/N) 

5140 PAUSE 0 

5150 IF INKEY*="N" THEN GO TO 5 
160 

5155 GO TO 11 

5160 BORDER 3s PAPER 3s INK 7s C 
LS 

5170 PRINT AT 10,1;"HOPE YOU HAD 
FUN-COME AGAIN." 

5180 PAUSE 0 

5190 STOP 

6000 FOR C=1 TO 2 

6010 PRINT AT B,A;"FJJJG" 

6020 FOR N=B+1 TO B+5 
6030 PRINT AT N,A;"K K" 

6040 NEXT N 

6050 PRINT AT B+6 ,A;"HJJJI" 

6060 NEXT C 
6065 BEEP .01,10 
6070 IF H=1 THEN GO TO 6130 
6080 GO SUB 7000 
6090 PRINT AT B+1,A+1; INK X;A*< 
F,4);AT B+3,A+1; INK 0;A*(F,2 TO 
3);AT B+5,A+3; INK X;A*(F,4> 
6100 LET V»0: GO SUB 7040 
6110 LET A* <F,1)*"1" 

6120 RETURN 

6130 FOR N*B+1 TO B+5 

6140 PRINT AT N,A;"K"j INK 1;"EE 

E"; INK 0;"K" 

6150 NEXT Ns RETURN 
6600 LET F*INT (RND*52)+1 
6610 IF A*(F,4)< >"0" THEN GO TO 
1620 

6620 LET X =3 0 

6630 IF A* (F, 1) sa"2" OR A*(F,1)=" 
4" THEN LET X=2 
6640 RETURN 

7000 LET F*INT <RND*52)+1 
7010 IF A*(F,1> < >"0" THEN GO TO 
7000 

7020 LET X*=0s IF A*(F,4)=»"A" OR 
A* <F,4)="D" THEN LET X=2 
7030 RETURN 

7040 IF A*(F,2 TO 3)=" A" THEN 
LET V*14s RETURN 




7050 IF A*(F, 2 TO 3)*" J" THEN 

LET V*11s RETURN 

7060 IF A*(F,2 TO 3)*" Q" THEN 

LET V=12s RETURN 

7070 IF A*(F,2 TO 3)*" K" THEN 

LET 9=138 RETURN 

7080 LET V*VAL A*(F,2 TO 3) 

7090 RETURN 

8000 DIM A*(52,4)s DIM P(5)s DIM 
D (5) 

8001 LET A* (1) =*"0 AA" 

8002 LET A*(2)*"0 2A" 

8003 LET A*(3)»"0 3A" 

8004 LET A*(4)«"0 4A" 

8005 LET A*(5)«"0 5A" 

8006 LET A*( 6 )*"0 6 A" 

8007 LET A*(7)="0 7A" 

8008 LET A*( 8 )*"0 8 A" 

8009 LET A*(9)="0 9A" 

8010 LET A*(10)«"010A" 

8011 LET A*(11)*"0 JA" 

8012 LET A*(12)“"0 QA" 

8013 LET A* (13)="0 KA" 

8014 LET A* <14)*"0 AB" 

8015 LET A*(15)="0 2B" 

8016 LET A*(16)*"0 3B" 

8017 LET A*<17>-"0 4B" 

8018 LET A*(18)“"0 5B" 

8019 LET A*(19)="0 6 B" 

8020 LET A*(20)*"0 7B" 

8021 LET A*(21)="0 BB" 

8022 LET A* (22) *‘‘0 9B" 

8023 LET A*(23)*"0106" 

8024 LET A*(24)«"0 JB" 

8025 LET A*(25)="0 QB" 

8026 LET A*(26)*"0 KB" 

8027 LET A*(27)*"0 AC" 

8028 LET A*(28)*"0 2C" 

8029 LET A*(29)*"0 3C" 

8030 LET A*(30)*"0 4C" 

8031 LET A* (31) =*"0 5C" 

8032 LET A*(32)«"0 6 C" 

8033 LET A* (33) =*"0 7C" 

8034 LET A*(34)«"0 8 C" 

8035 LET A*(35 )="0 9C" 

8036 LET A*(36)*"010C" 

8037 LET A*(37)="0 JC" 

8038 LET A*(38)= "0 QC" 

8039 LET A*(39)="0 KC" 

8040 LET A*(40)«"0 AD" 

8041 LET A*(41)="0 2D" 

8042 LET A*(42)*"0 3D" 

8043 LET A*(43)="0 4D" 

8044 LET A*(44)="0 5D" 

8045 LET A*(45)*"0 6 D" 

8046 LET A*(46)«"0 7D" 

8047 LET A*(47)="0 8 D" 

8048 LET A*<48)«"0 9D" 

8049 LET A*(49)*"010D" 

8050 LET A*(50)*"0 JD" 

8051 LET A*(51)="0 QD" 

8052 LET A*(52)="0 KD" 

8053 RETURN 

9000 RESTORE s FOR a=USR "a" TO 
USR "k"+7 

9010 READ users POKE a,user 
9020 NEXT as GO TO 10 
9030 DATA 24,60,126,255,255,126, 
60, 24 

9040 DATA 28,28,8,107,127,107,8, 
28 

9050 DATA 16,56,124,254,254,254, 
16,56 

9060 DATA 102,255,255,255,255,12 
6,60,24 

9070 DATA 204,204,51,51,204,204, 
51,51 

9080 DATA 0,0,0,7,15,12,24,24 
9090 DATA 0,0,0,192,240,48,24,24 
9100 DATA 24,24,12,15,7,0,0,0 
9110 DATA 24,24,48,240,192,0,0,0 
9120 DATA 0,0,0,255,255,0,0,0 
9130 DATA 24,24,24,24,24,24,24,2 
4 

9990 REM abcde-fghijk 

9991 REM ABODE FGHIJK 

9992 BORDER 7s PAPER 7s INK 0s C 
LS s STOP 

9995 SAVE "STUD POKER" LINE 9000 

9996 GO TO 10 






Horizontal 




Chart 


* 


HORIZONTAL BAR CHART is a routine in BASIC for 

the TS2068 with an attached TS2040 printer. The 
purpose of the routine is two-fold. One, it is a 

relatively short program that provides a bar chart to 
illustrate the comparative status of a number of items 
(up to 20) in an inventory. Two, it demonstrates one 
way in which the 2040 printer can print out and 
"couple" automatically several screens full of data, 
and print it as a single illustration. 

This program will print out one screen full, or 
two screens full, as the number of items requires. 

For example, we input data on 15 assumed and 
related items, in this case various fruits. We also 
included make-believe quatities and a title, in 
response to LINE 55 of the program. The routine is 
universal. You may enter any related items and 
respective quantities. The item name is limited to 12 
characters, in LINE 20. We also elected to call this 
FIGURE 1, but again, this may be changed to suit your 
application. Usually bar charts are used for a group 
of related items of 5 or more. Less than this and a 
pie chart may be a better choice. 

In order to understand the arithmetic of the PLOT 
and PRINT AT lines, such as 240, 250, 630 and 640, you 
should refer to a screen chart for the computer. There 
is one on page 152 of the User Manual. 


1 REM ** HORIZONTAL BAR CHART 

2 REM ** "D-30", 3-17-33, UF 

5 REM ** ENTER DATA 

3 LET max=0: POKE 23653,3 

18 INPUT "Hoiju many items, 5 to 
28? ";I 

15 IF I>20 THEN GO TO 10 
20 DIM A$ (1,12) : DIM 0(1) 

30 FOR n =1 tO I 
40 INPUT “Enter item No. “;(n) 
and quantity “; A$ (n) , O (n) 


in 

IF 0 in) > ma x THEN 

LET 

m a x: 

=0 i 

n) 






58 

NEXT n 





55 

INPUT "Enter 

t i t 

l£ . 

M a x 

i m U 

m o f 

32 chars 

cter 

. II 

1 

; e$ 


280 

REM ** PLOT 

D AT A 




218 

LET U=160 





220 

FOR m = 1 TO I 





238 

FOR n =0 TO 2 





248 

PLOT 0,u+s+n 

: DR 

A U 2 

53*Q 

(rri > 

/m a x 

,8: NEXT n 




• 

258 

PRINT AT 21- 

U / 3 , 

1; A$ 

(m) ; 

II — 

"; Q 

(m); " units. " 





260 

LET U=U-16 





270 

IF m =10 AND 

1=10 

OR 

m >10 

AN 

D I> 

18 THEN GO TO 

580 




238 

NEXT m 


• 




290 PRINT AT 13,16-LEN B$/2;B$; 
AT 20.12; "FIGURE 1" 

300 PLOT 0,0: DRAW 0.175: DRAU 
255,0: DRAU 0,-175: DRAU -255,8: 
COPY : STOP 



= 180 units 


AU0CAD05 


= 20 units. 


BANANAS 



= 2 units. 

= 50 uni ts '. 


= 72 units. 


GRAPE FRUIT 


= 15 units . 
= 25 units. 


LEMONS 
LIMES 


= 38 units . 

= ll units. 


ORANGES 



PINEAPPLES 


PLUMS 



TANGERINES 


= 115 units 


= 62 units. 


= 35 units 
= 27 units 

= 12 units 

= 7 units. 


INUENTORY OF FRUIT 

FIGURE 1 



500 PLOT 0.0: DRAU 0.175: DRAU 

255.0: DRAU 8.-175: COPY : CL3 

518 IF I>=12 THEN GO SUB 608 

520 PRINT AT 19,16-LEN B$/2;B$; 

AT 28,12;"FIGURE 1" 

538 PLOT 8.175: DRAU 0.-175: DR 

AU 255.8: DRAU 0.175: COPY : STD 

• • 

P 

608 REM *x PLOT CONTINUATION 

DAT A 


# i r 


605 LET U =160 
618 FOR m=12 TO I 
628 FOR n =0 TO 2 


638 PLOT 0,U + 3+n: DRAU 253*0(m) 
/ma x,8: NEXt n 

648 PRINT AT 21-U/3,1;A$Cm);" = 

";O (m);" units." 

650 LET U =U-16 
670 NEXT m: RETURN 

& 

t 

( 



by John M. Bell 


IMPORTANT NOTE : The following article describes a 
method of testing for, and repairing a Timex Sinclair 
2068 with bad RAM chips. Though it is a simple project 
that most people with basic soldering skills are 
capable of completing, and the information presented 
here is believed to be correct, the author and pub¬ 
lisher take no responsibility for any damage done to 
the computer (or hobbyist) as a result of, or while 
using this information. 


The most common cause of a Timex Sinclair 2068 
not working is burnt-out RAM chips. The chip(s) are 
usually destroyed when turning on the computer with a 
printer or disk interface attached. Though I have no 
way of proving it, the most likely cause is a high 
voltage "glitch" produced by the switching regulator 
when it is "powered-up" under a heavy load. Note that 
one or all of the chips can burn out, and in any 
combination. 

There are three symptoms that may indicate bad 
RAM chips. The first is a blank screen when the 
computer is turned on. This suggests either a "brain 





LOCATIONS 



TIMEX 


CHIPS 


MARKED 4416-15 


U12 



SERIAL HO. 

\ V 


T 


ui 7 


UI3 


"U" 


w 


i 1 

* 

* 

r 

1 r 


* 





K 

in 

T T 


1 


1 

h 

1 


UI 


UI 


U18 


* 

* 

1 

h 

ui 


TIMEX TS-E0O0 
335-8500O1-03R 



l 


J 

T 


FRONT EDGE OF PRINTED CIRCUIT BOARD 


CARTRIDGE CONNECTOR 


J 


FIGURE 


ONE 


dead" 2068 (the SCLD...or "square chip" is destroyed, 
and is VERY difficult to replace, IF you can get one), 
or that most of the RAM chips have burnt out. The 
second symptom is a display that consists of a white 
border around a screen of "garbage". This indicates 
that at least one of the RAM chips in the first 16K 
bank is bad. The last and most obvious symptom is the 
free memory after power up is less than 38652 bytes 
(using the PRINT FREE command). If a Spectrum ROM is 
installed in the computer, the original Timex ROM will 
have to be replaced to use the FREE command. 

If your machine exhibits any of these symptoms, 
there is a chance it can be easily repaired. First, 
the computer's PC board must be completely removed 
from it's case. Save all the screws and be careful to 
avoid damaging the keyboard ribbon cable. Place the PC 
board on a non-conductive work surface and plug it in. 
Leave it turned on for a few minutes and then check 
each of the RAM chips for overheating (see Figure One 
for the chip locations). If any of the chips are hot 
to the touch, they are bad and need replacing. Mark 
them for removal. If none of the chips are hot and the 
computer still displays a black screen, the problem is 
probably not with the RAM chips. Consider sending the 
machine out for repair (to Dan Elliott of Promise Land 
Electronics—see May/June '88 issue of TDM for address 
listing). If the computer displays a border around a 
screen of garbage, chips U6 and/or U7 may have gone 
bad. If a normal sign on the screen is displayed, but 
only 22268 bytes are "free", chips U16 and/or U17 may 
have gone bad. If 5884 bytes are free, chips U12 
and/or U13 and possibly U16 and/or U17 may have gone 

bad. 

The chips that are hot to the touch should now be 
removed. Don't bother trying to remove them in one 
piece. Just cut or clip pins near the body of the 
chip, and remove the remaining pins from the PC board 
with a hot soldering iron and tweezers. If the chips 
are suspected to be bad but are not getting hot, a 
more difficult problem exists. The chips can be 
clipped off the board and discarded, or removed in one 
piece. If the chip is clipped off, you will never know 
if it was good or bad, and it will have to be re¬ 
placed. If the chip is removed in one piece (a very 
difficult task), the chip can be saved for testing and 
possible re-use...but only at the risk of possibly 
damaging the PC board. Make your own decision. 

Once the chips have been removed, the computer 
should be tested again. Connect it to a monitor and 
turn it on. If any of the remaining RAM chips are now 
getting hot, they should also be removed. If the 
display was formerly black, and now displays the 


normal copyright message, but with reduced RAM 
available, the chips can be replaced and computer 
should work fine. If a border is displayed around a 
screen of garbage, and chips U6 and U7 are still on 
the board, one or both of them may also be bad. Remove 
them for replacement or testing. 

New RAM chips for the computer will have to be 
purchased. The 2068 uses 4416-15's, which are 16K*4 
RAM chips. The 15 in the chip number designates speed. 
In this case 150 ns (nano seconds). Purchase either 
120 or 150 ns chips, as the slower 200 ns chips will 
not work. Radio Shack does not sell them, so they must 
be mail-ordered (suppliers listed at the end of 
the article). Consider purchasing extra RAM chips, so 
that if one of the RAM chips left on the board is bad, 
you won't have to re-order. Don't even think about 
soldering the chips in. Purchase IC sockets along with 
the chips. Sockets make it easy to remove a chip for 
testing, and at twenty cents each, are a lot cheaper 
than cutting a $4.00 RAM chip off the board. 

The sockets should now be soldered in place where 
the RAM chips once were. If the holes on the PC board 
are filled with solder, they will first have to be 
cleared. The best method I have found is to hold the 
PC board vertically in a vice, melt the solder from 
one side of the board with a soldering iron and use a 
solder pump to suck the molten solder out from the 
other side. Remove any solder splashes or excess flux 
from the PC board and solder the sockets into place 
using rosin core solder. 

Insert the new RAM chips .into the sockets with 
the notch end of the chip pointing to the back of the 
PC board. Test the computr out of the case once again 
as described in paragraphs two and three. If every¬ 
thing checks out fine, the computer can be re¬ 
installed in the case and used as normal. If the 
computer still does not work or has reduced RAM 
available, there are two possible reasons. Either 
there is yet another bad RAM chip (new or old), or 
another chip in the computer is damaged, but still 
operates. Re-test the computer for bad RAM chips, and 
if none can be found, consider having the computer 
professionally repaired. 

SUPPLIERS: 

JDR Microdevices, 110 Knowles Drive, Los Gatos, CA 
95030, (800) 538-5000. Takes VISA & M-CARD, $10 min. 
order. 

JAMECO Electronics, 1355 Shoreway Road, Belmont, CA 
94002, (415) 592-8097. Takes VISA & M-CARD. $20 min. 
order. 
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curry 

computer 



P.O. BOX 
GLENDALE, AZ 
(602) 


8631 





SUMMER CLEARANCE 


SOFTWARE for the T/S lOOO: All 

Mixed Game Bag I\PresidentsX Stk 
Night GunnerX Hangman\ Fin Mgr & 
Meteorites\ ChessX GamblerX 
Organizer\ Home Asset\ Home 
Pioneer Trail\ Damper—G1ooper\ 
more — Write for a list. 


Mkt Calc\ Red 


Imp 


Keep\ Alien 

Mixed 
\ VuCalcX 
Crawler 


Alert \ 


Invas 



ion\ 

II\ 



Plus many 


lOOO Computer (2K) with 3 Prog 


SOFTWARE for the 
Budgeter... 
Fighter Pilot. 


Stk Mkt 
$12.95 


SOFTWARE for the Spectrum: 

Storm Bringer...$5 I, Ball... 
lOth Frame...$10 Mag Max. . .$10 

King 2...$5 Skyranger. 

Onlys', write for a list. 


Biggles. 
Snowman.. 


many 


' One 






SOFTWARE for the QL 
Super Disk (TKII 
SuperBoot. . . 

Graphic TK. 

Archive 2. 
Presidents.. 


req . ) 
(disk) 


Super Checking 
Assembler. . . 


$14. 

..$18. 

$14 

Nuc1eon 
.$14.95 


..$19. 

QRAM. . 
Wanderer 


Cribbag 


$14 


(RGB only) 

I I 


..$19. 
Thomp 


$18. 

$14. 


( 12)...$1 


MAGAZINES: 

QL World: Current Issues 

(Jan/Feb/Mar/Ap/May/June/Oct 
Sinclair User: Current I 

(call for list) 

We also have: Commodore 

; Atari User; At 
; PC Amstrad; Amstrad 
Pricing. 


$4 


Amiga 


Commodore International; 
User; Computer & Video 
Amstrad PCN...Call for 


S/H Charges: Under $15 
\ Under $100 = 


= $1 \ Under 

$4 \ Under $200 = 


Under 


Sale Prices 


for 


from Publication 




vys 




Mass-Storage 



TAPE 


STORAGE 


2068 


PROGRAM INDEX 


by V. Phillip Hosey 


This simple program is easily adaptable to 
virtually any computer. It not only provides a 
modicum of security, but files all your stored 
programs by digital location on tape, eliminating a 
lengthy title-by-title search. I always incorporate 
an attention-getting BEEP at the beginning of each 
program SAVEd LINE 1 so that I may divert to other 


productive activities while passing the few minutes 
delay required for LOADing lengthy data. One last 
note: LINE 0 was obtained from Randall Larson's "NO 
DELETE PROGRAM" listed in the NOV/DEC '87 issue of 
TDM ("In The Mailbag"). Originally intended for the 
Spectrum, it functions perfectly without modification 
on the TS2068. 

ll 






0>REM 1985:V. Phillip Hosey 
1 PRINT "STOP TAPE:CODE?": INPUT A$: IF A 
$<>"(any CODE you want)" THEN NEW 

10 BORDER 0: PAPER 0: FOR 1=0 TO 21: CLS : 

PRINT INK 7;AT 1,0;": V. Phillip Hosey/T 
S-2068:1985": BEEP .01,-1: NEXT 1 
20 INK 2: CIRCLE 80,92,81 
23 INK 4: CIRCLE 207,55,43 
25 INK 1: CIRCLE 198,136,32 
30 PRINT INK 6;AT 2,10;"1"?AT 3,7;"Progra 
m";AT 4,7;"-INDEX-";AT 14,23;"16k=90";AT 15 
,23;"second";AT 16,22;"loadtime";AT 4,22;"I 
NKEY$"; FLASH 1;AT 5,24;"#?": FLASH 0 

40 FOR n=0 TO 9: READ A$: PRINT INK 3;AT 
n+6,2;n;" "; INK 7;A$: NEXT n 

50 FOR y=0 TO 31: PRINT INK 7;AT 21,y;"." 
;AT 21,y;" " 

60 IF INKEY$="" THEN NEXT y: BEEP .01,9: 
GO TO 50 




I use my computer's 
number as an access code 




# * 








\7 

□ □ 




V- | 


m * 




1 • 


[ v •* * • t 

0 Y' * 

j V. l : 


• • • • / 



2068 


65 

IF 

INKEY$="0" 

THEN 

GO 1 

TO 9 5 

81 

IF 

INKEY$ = "1" 

THEN 

LET 

t = 15 

82 

IF 

INKEY$ = "2" 

THEN 

LET 

t = 4 6 

83 

IF 

INKEY$="3" 

THEN 

LET 

t = 5 6 

84 

IF 

INKEY$="4" 

THEN 

LET 

t = 70 

85 

IF 

INKEY$="5" 

THEN 

LET 

t = 110 

86 

IF 

INKEY$="6" 

THEN 

LET 

t = 14 5 

87 

IF 

INKEY$="7" 

THEN 

LET 

t = 16 5 

88 

IF 

INKEY$ = "8" 

THEN 

LET 

t= 2 0 0 

89 

IF 

INKEY$="9" 

THEN 

LET 

t= 300 

90 

PRINT INK 5; 

AT 3,22;"Start " 

Tape 

" . 
/ 

AT 5,22;" 

Now " 

; AT 

14,23; 



You will insert these 
digital locations after 
SAVEing your programs. 
(Ignore these samples) 



;AT 4,22; 

tl D « 4. _ II 


99 


AT 15,23;"Forward";AT 16,22;" Tape To"; FLA 
SH 1;AT 17,25;t;AT 21,7;"* PAUSE TO LOAD 
";INKEY$; FLASH 0: INK 7: LOAD INKEY$ 

95 CLS : LIST 99: BEEP 1,30: PRINT ; FLASH 
1;"REWIND TAPE THEN SAVE FLASH 0 
99 DATA "Index Editor","BattleStarXEMIT"," 
MSCRIPT Master","Printer Drive","Accounts:1 
987","TS-2068 CDP","File Matrix","SmartMode 


m 


fl 99 


WordWright 


If 99 


Dive Guide" 



You can list program names 
in order prior to storage. 
(Ignore these samples) 


V 







TURBOLOADER 


frrr i * u 

• ' • « f. 4 


Floyd Chrysler 


(adapted from an original Spectrum program. 


with permission. 



Esben Krag Hansen) 


Do you have lots of programs on tape? Do you go crazy 
waiting For them to load? IF you answered yes then you may be 
interested in this program to double thB speed oF your tape 
loads. 

I was in the samB position whBn I received the May 1986 
issue of "Your Sinclair”. Even though I have the AERCD FD-6B I 
still have lots oF programs on tape I really didn’t want to move 
to disk and I still make backup copies of important progams For 
long term storage. Using disk made my tape deck seem so slow. 

In the magazine was a program by Esben Hansen For the 
Spectrum that allowed you to save and load programs at variable 
baud rates From 1500 (normal rate) to 3500 (more than double). 

I wanted to do this on a 2068 so I vowed to convert the program 
to work on my machine. 

This was not as easy as I had thought. While a lot of the 
program was compatable with the 2060, by Just changing thB RDM 
calls, the calls to the tape handling routines were a problem. 
On the 2060 the tape routines are all in EXR0M. It was either 
bankswitching or a rewrite to do the tape handling routines 
within thB program. I chose the second and by some Fiddling 
managed to get the program to work with most of the Functions in 
the original and only use a little over 200 bytes more. 

The program supports all the tape commands - Save, Load, 
UeriFy, and Merge. Turboloader is invoked by a RANDOMIZE USR 
63600. This is followed by the Turboloader commands - LIST, 
PRINT, INPUT, or RUN. And finally your tape command - SAUE, 
LOAD, etc. 

To save a screen at double speed: 

RANDOMIZE USR 63600: RUN 3100: SAUE "pic” SCREENS 

The keywords Li3t, Print, Input, and Run will still work as 
normal except when they Follow a RANDOMIZE USR 63600. When used 
as.Turboloader commands they have the following meaning: 

LIST - This command reads a header from tape and lists it on 

the screen. It displays program length, data length 
For code, start line, etc. 

ex: RANDOMIZE USR 63600: RUN 3100: SAUE "test" CODE 
63600,600: LIST 


INPUT- This deals with the-message start tape on SAUE’s 

INPUT 2 prints the Turboloader message and the start 

tape message and waits For a keypress. 

INPUT 1 print the Turboloader message only and waits 

for a key press. 

INPUT 0 prints nothing and goes right into the save 

without waiting For a key press. 

PRINT- This deals with L0AD/UERIFY commands 

Print 2 prints thB turboloader message and program 

names as they are Found. 

Print 0 nothing is printed. 

PRINT 2 and INPUT 2 are the initial deFault values. 

There is a lot of code to enter for Turboloader. I have 
included a Hbx loader program to make it a little easier. Enter 
the loader program and save it. The code is listed in three 
columns. The First is the address For that .code line. Next is 
the code in blocks of 0 hex bytes. Last is.a check digit. 

When you run the hex loader it will ask you For a start 
address. The First time you should enter 63300. It will then 
ask For the code. Enter all 16 characters (0 hex bytes) and 
press enter. You will then be asked For the check number. Enter 
it and iF all is ok the program will display the next address 
(which should match the next address in the code list), if there 
is an error the program will beep and redisplay the same address 
for you to reenter the line in error. 

At any time you may enter STOP to the enter code message and 
you will be prompted to save the code entered to that point. 
You can then restart at a later time by reloading the code and 
loader program and entering thB next address From where you left 
off at the prompt. When you have entered all the code the 
program will prompt you to save the code. Once you have all 
the code saved you can start speeding! Enter CLEAR 63379: LOAD 
"TURBO” CODE 63300. Remember the entry point to the program for 
all user calls is 63600. 

Don’t be intimidated by all the code. I’m sure you will 
find it worth the time to Bnter. If you have not yet spent the 
family Fortune on a disk drive you will Find this program 
invaluable. 


RUN - This changes the baud rate. It must be Followed by a 

number ranging From 1500 to 3500, in stBps of 200 
(1500,1700,1900, etc.). A good tape recorder should 
be able to handle at least 3100. 




(ready 


addr 

633B0 

B33BB 

63336 

63404 

63412 

63420 

6342B 

63436 

63444 

63452 

63460 

634EB 

63476 

63484 

63432 

63500 

6350B 

63516 

63524 

63532 

63540 

6354B 

63556 

63564 

63572 

635B0 

635BB 

63535 

63604 

63612 

63620 

6362B 

63636 

63644 

63652 

63660 

E366B 

63676 

636B4 

63632 

63700 

6370B 

63716 

63724 

63732 

63740 

6374B 

63756 

63764 

63772 

637B0 

637BB 

63736 

63B04 

63B12 

63B20 


Hex Loader 

30 DEF FN hCaS)-C0DE aS-48-C7 
AND a$>"3") 

40 POKE 23658,8 

50 INPUT ’’Start Addressstar 

t 

60 IF start-63380 THEN GO TO 
30 

70 INPUT ’’Have you re-loaded c 
ode?”;zS 

BO IF zSO ”Y” THEN PRINT ”Lo 
ad code and re-start”: STOP 
30 LET adr-start 
100 FOR t-start TO 65444 STEP 0 


110 LET sum-0 
120 PRINT adr ; ” 

130 INPUT ’’enter code ”; cS 
140 IF cS-’’STOP” THEN GO TO 38 

0 

150 IF LEN cS<>16 THEN BEEP .2 
5,.25: GO TO 130 
160 FOR i-1 TO 8 
170 LET a$-c$C2) 


Turbo loader Code 

for Hex Loader program) 

code check 

CF1A7EE6C020131A B64 
13BE2320021ABE1B 521 
2B3008E5EBCD2017 823 


E11BECCDF0F71BE2 1427 
7E4FFEB0CBE5214B 1124 
5C7EFEBO2825B320 302 

0BC5CD2017C1EB18 317 

F0E6E0FEA02012D1 1367 

D5E523131ABE2006 750 

1730F7E11803E118 813 

E03EFFD1EB3C37CD 1305 
F0F71BC420100822 737 

5F5CEBCD2017CD50 367 
17EB2A5F5C0808D5 716 

CD2017225F5C2A53 606 

5CE3C50B38072BCD 035 

BB12231B03CDBB12 677 

• 23C1D1ED53535CED 1163 

5B5F5CC5D5EBEDB0 1336 
E1C1D5CD5017D1C3 1343 

3D20FDA704C83E7F 306 

DBFE1FD0A3E62028 1183 
F3732F4FE607F60B 381 

D3FE37C3F53A4B5C 11B8 
E6380F0F0FD3FE3E 858 
7FDBFE1FFB3802CF 1147 
0CF1C30000000000 454 

00000000DFFE0D2B 530 

47FE3A2802CF0BFD B36 
340D2A5D5CE5E721 785 

70FBE3FEF5285DF5 1464 
E5CDCDF8E1F1FEEE 1845 
2B5FFEF7CA27FAFE 1381 
F0CA78FA0600FEFB 1320 
2B6104FEEF2B5004 770 

FED6285704FED52B 1106 

52225D5CFD350DE1 B45 

CDC4F8ED4B765CC3 1372 
3A3BFFFE02C0C3A3 1184 
083A3CFFFE02C0CD 1034 
A30B1160FEAFCD3F 387 
07ED4B37FFCD8817 333 

3E0DD7C9CD00F3FE 1193 
03D276FA323BFF18 969 

D8CD00F3FE0330F1 1216 

323CFFC3E7CDE51B 1258 
C31E1F7B3233FFE7 969 

CDEF1BCD89282B3D 954 
0111003A39FFA72B 535 

020E22F7D5DDE106 362 

0B3E20121310FCDD 631 

3601FFCDAF2F21F6 1016 
FF0B030330103A33 457 

FFA72003C3701478 904 

B1280A010A00DDE5 688 

E123EBEDB0DFFEE4 1613 


63820 20473A33FFFE03CA 
63836 ED1BE7CD702CCBF9 
63844 300C2100003A33FF 
63852 3D2816C3311BC2ED 
63860 1BCD032B2B1B237E 
63860 DD770B237EDD770C 
63876 23DD710E3E01CB71 
63BB4 28013CDD7700EBE7 
63892 FE2920DAE7EBC36D 
63900 FBFEAA201C3A33FF 
6390B FE03CAED1BE7DD36 
63316 0B00DD3E0C1B2100 
63924 40DD750DDD740E18 
63932 4AFEAF204D3A33FF 
63340 FE03CAED1BE7CDE7 
63348 21200C3A39FFA7CA 
63956 ED1BCD511C1B0FCD 
63964 E51BDFFE2C280C3A 
63972 39FFA7CAED1BCD51 
63980 1C1804E7CDE51BCD 
63988 231FDD710BDD700C 
63336 CD231FDD710DDD70 
64004 0E6069DD360003C3 
64012 6DFBFECA2B07DD36 
64020 0E80C34DFB3A39FF 
64028 A7C2ED1BE7CDE51B 
64036 C344FBE7CDE51BCD 
64044 231FC5CDE9300164 
64052 00CDE330EF0538CD 
64060 1E1FFE0F3B34FE24 
64068 3030D60FCB47202A 
64076 CB27CB27214DFF06 
64084 004F09EB213DFF06 
64032 0BC51A134E234623 
64100 02C110F53A1BFE32 
64108 49FEC1ED4337FFC3 
64116 CDF8CF03E7FE0D28 
64124 06FE3A2802CF0B11 
64132 1100DD2126FFAF37 
64140 CDCBFD30F23A26FF 
64148 FE0430EBCDC4FB3E 
64156 02CD301211F6FECD 
64164 3F071127FF060A1A 
64172 FE203001AFD71310 
64180 F63E0DD73A26FFA7 
64180 2822FE032B5D3E05 
64196 1160FECD3F073A34 
64204 FFF5E61FC640D7F1 
64212 CB772B033E24D73E 
64220 0DD71B4EED4B33FF 
64228 7BE6C02010C53E02 
64236 1160FECD3F07C1CD 
64244 88173E0DD73E0611 
64252 60FECD3F07ED4B35 
64260 FFC5CD3AFB3E0711 
64260 60FECD3F07C12A31 
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180 POKE adr.FN hCc$)*16+FN hCa 
SD 

190 PRINT cSClDjaS; 

200 LET cS-cS(3 TO ) 

210 LET sum-sum+CPEEK adr) 

220 LET adr-adr+1 
230 NEXT i 

240 INPUT ’’Check Number-”; check 

250 PRINT ” ”;sum 

260 IF sum<>check THEN GO TO 3 
40 

270 NEXT t 

280 PRINT ’’END OF CODE” 

290 SAUE ”TURB0”C0DE 63300,2066 

300 PRINT ’’UERIFY” 

310 UERIFY ”TURB0”C0DE 63380 
320 PRINT ’’FINISHED” 

330 STOP 

340 LET adr-adr-8 
350 BEEP .5,1 

360 PRINT ’’ERROR - RE-ENTER” 

370 GO TO 110 

3B0 INPUT ”Do You want to Save 
your work? CY or N)”;z$ 

330 IF z$-”Y” THEN GO TO 290 
400 STOP 

993 SAUE ’’hexload” LINE 10 


332 

64276 

V 

FFA7ED42444DCD3A 

1133 

w w L 

1308 

642B4 

FB180F3E031160FE 

722 

463 

64232 

CD3F07ED4B33FFCD 

103B 

921 

64300 

3AFB3E041160FECD 

347 

634 

64308 

3F07ED4B31FFCDE3 

1124 

864 

64316 

30CDA1313E0DD7C9 

354 

762 

64324 

CD231FDD710DDD70 

951 

907 

64332 

0EDD3600002A595C 

512 

1315 

64340 

ED5B535C37ED52DD 

1098 

1105 

64348 

750BDD740C2A4B5C 

686 

1223 

64356 

ED52DD750FDD7410 

1025 

358 

64364 

EB3A39FFA7CA0DFD 

1240 

790 

64372 

E5011100DD09CDCD 

BB7 

382 

64380 

F8DDE5111100AF37 

962 

1390 

643BB 

CDCBFDDDE130EF3A 

1452 

816 

64336 

3BFFA72B0CCDC4FB 

1182 

B22 

64404 

3EFECD3012FD3652 

376 

BB7 

64412 

030EB0DD7E00DDBE 

903 

1231 

64420 

EF20020EF6FE0430 

833 

953 

64420 

CD473A3BFFA77B28 

975 

756 

64436 

0B11F6FEC5CD3F07 

997 

351 

54444 

C1DDE5D121F0FF19 

1405 

RRR 

64452 

060A7E3C20037380 

486 

UUU 

1130 

64460 

4F131ABE2320010C 

334 

X X ft mi U 

1035 

64468 

3A3BFFA72B021AD7 

822 

X w w 

1317 

64476 

10EFCB79209B3A3B 

8 B0 

1411 

64484 

FFA728063E0DD7CD 

963 

850 

64492 

CDFBE1DD7E00FE03 

1282 

931 

64500 

2B0C3A33FF3DCA41 

750 

72B 

6450B 

FCFE02CAEEFCE5DD 

1650 

673 

64515 

6EFADD66FBDD5E0B 

1250 

B55 

64524 

DD560C7CB52B0EED 

915 

678 

64532 

523827280BDD7E00 

572 

46B 

64540 

FE03C2gHF7E17CB5 

1376 

845 

64548 

2006DD6E0DDD660E 

719 

1323 

64556 

E5DDE13A39FFFE02 

1301 

1207 

64564 

372001A73EFFCDCB 

980 

595 

64572 

FDDBC334F7DD5E0B 

13B5 

734 

645B0 

DD560CE57CB52006 

891 

1302 

645B8 

131313EB1B0CDD6E 

659 

1252 

64536 

FADD66FBEB37ED52 

1433 

335 

64604 

380311050019444D 

257 

423 

64612 

CDBB1FE1DD7E00A7 

1162 

760 

64620 

283D7CB528132B46 

57B 

1054 

64628 

2B4E2B030303DD22 

428 

531 

64636 

5F5CCD5017DD2A5F 

853 

752 

64644 

5C2A595C2BDD4E0B 

668 

1473 

64652 

DD460CC5030303DD 

730 

740 

64660 

7EFDF5CDBB1223F1 

1310 

348 

6466B 

77D12373237223E5 

891 

B51 

64676 

DDE1373EFF1B8FEB 

1220 

1040 

64684 

2A595C2BDD225F5C 

70B 

534 

64632 

DD4E0BDD460CC5CD 

1015 

930 

64700 

4D17C1E5C5CDBB12 

1129 

1052 

64708 

DD2A5F5C23DD4E0F 

799 

903 

64716 

DD461009224B5CDD 

73B 


64724 

660E7CE6C0200ADD 

925 


64732 

6E0D22425CFD360A 

632 


64740 

00D1DDE1373EFFC3 

1222 


addr code check 

64748 3AFCDD4E0BDD460C 923 
B475B C503F73BB0EBD1E5 1302 
B47B4 E5DDE1373EFFCD3A 1310 
B4772 FCE1ED5B535CC396 1325 
B47B0 F7E53A3CFFA72B24 1092 
B47BB 3D200A3EFDCD3012 B89 

B479B CDD9111B17CDA90B BBB 
B4B04 CDCDFB3E0111E0FE 10BB 
B4B12 CD3F07CDD911CDA9 10BB 
B4B20 08CDCDFBDDE51111 1150 
B4B2B 00AFCD52FDDDE10B 1167 
B4B3B 327B10FDDD5E0BDD 9B4 
B4B44 560C3EFFDDE12150 974 

64B52 FBE521801FCB7F28 1039 

B4BB0 03219B0C0B13DD2B 491 

B4BBB F33E044710FED3FE 1115 

B4B76 EE0F0BA42D20F505 750 

B4BB4 25F2BBFD0B2F10FE 959 
64892 D3FE3E0C0E3710FE 870 
B4900 D3FE010D3B0BBF1B BB1 
B490B 097AB32B0BDDBE00 692 
B491B 7CADB73E02371B17 5BB 

B4924 BC1BF579CB7B10FE 1091 
B4932 30040B4210FED3FE B59 

B4940 0B3E20EF05AF3CCB 7B2 
6494B 1520EB1BDD230B31 B2B 

B495B 3E7FDBFE1FD07A3C 10B3 
B49B4 20C7063B10FEC914 7B7 


B4972 0B15F33E0FD3FE21 B47 

B49B0 50FBE5DBFE1FEB20 1323 
B49BB F6044FBFC0CD5BFE 12B2 
B499B 30FA21150410FE2B BB9 

B5004 7CB520F9CD57FE30 11B0 

65012 EB069CCD57FE30E4 1219 
65020 3EC6BB30E02420F1 1025 

6502B 0BC9CD5BFE30D57B 113B 
65036 FED430F4CD5BFED0 1516 
65044 79EE064F260006B0 664 

65052 181F0B2007300FDD 3B6 

65060 75001B0FCB11ADCO 741 

6506B 791F4F131B07DD7E 62B 

65076 00ADC0DD231B0B06 6B2 

650B4 B22E01CD57FED03E 1041 
65092 CBBBCB150EB030F3 10B4 
65100 7CAD677AB320CB7C 1060 
B510B FE01C9CD5BFED03E 127B 
65116 16C334FBB0545552 B96 

65124 424F4C4F4144207F 592 

65132 31393B3B20454B2B 432 

B5140 4643202042415544 4B5 

6514B BA20205354415254 64B 

B515B 205441504520414E 505 

B5164 4420505245535320 529 

G5172 414E59204B45D953 70B 

G51B0 54415254204C494E 574 

B51BB 45BA535441525420 6B5 

B519B 41444452455353BA 704 

B5204 4C454E47544B204F 5B1 


65212 4B20444154412042 482 

B5220 4C4F434BBA415252 712 

B522B 4159204E414D45BA 661 

B5236 50524F4752414D20 5BB 

B5244 4C454E47544BBA4C 712 

65252 454E47544B204F46 555 

652B0 205B41524941424C 545 

65268 4553BA0D50524F47 BB3 

B527B 52414DBA0D4E554D 6B3 

B52B4 4245522041525241 543 

B5292 59BA0D434B415241 639 

65300 4354455220415252 563 

65300 4159BA0D42595445 661 

65316 53BA000000000000 269 

65324 0000000000000000 0 

65332 000000DC05000002 22^ 

65340 02BBFDA7FDADFDBB 1424 
6534B FD1BFE3CFE44FE5C 1262 
65356 FE3B423E31B0B2CB 1047 
65364 16373D3A2DB7B9D0 817 

65372 153239352BBDBFD4 B13 

653B0 132E343124C4C6D9 813 

653BB 1229302C1FCACCDD 809 
65396 10252B281BD1D3E2 809 

65404 0F21272417D7D9E6 BOB 

65412 0D1C221F12DEE0EB 805 
65420 0C1B1E1B0EE4E6EF B04 
6542B 0A13191609EBEDF4 801 

65436 090F151205F1F3FB BOO 

65444 0700000000000000 7 



PRACTICAL 2068 BANK-SWITCHING 

by Stan Lemke 


Although some bank-switching applications might 
encompass seemingly insurmountable programming 
obstacles... there are many others that can be 
accomplished with ease! I'd like to present three 
bank-switching examples/applications that can be 
adapted and expanded on for a wide variety of uses. 

BANK SWITCHING THEORY—FROM A LAYMAN'S PERSPECTIVE 

What is bank switching? In very simple terms, it 
is a way to direct the computer to switch between 
different "banks" of memory circuits. This is 
accomplished in a program with the OUT 244,VALUE 
command, where VALUE defines which memory "banks" are 
being used. Although the computer can only talk to 
64K of memory (8 banks of 8K each) at any given time, 
BANK-SWITCHING can switch in/out different banks of 
memory...and make it appear like more memory. One 
little detail that makes this all possible, is that 
when you swtich out one memory bank for another, the 
memory in that bank remains just the way you left 
it...so when you return to it, you can continue on 
just as before! 

Another important detail is that we will only be 
working with memory above location 32768. By doing 
this, we will not interfere with the computer oper¬ 
ating system and greatly simplify our work. This 
means that we will only have an additional 32K of RAM 
to work with, but that almost doubles the memory 
capacity we are currently working with after sub¬ 
tracting that used by the operating system! 

Memory is "bank-switched" in 8K chunks using the 
OUT 244,VALUE command. VALUE determines which chunks 
are being used. The following table defines VALUE and 
the "DOCK" memory addresses that are used. 

Now, by adding various values, one can activate 
multiple banks of dock memory (i.e., VALUE - 64+128 - 
192 operates on addresses 49152 - 65535). To reset 
all banks to the standard memory, use VALUE - 0. 
NOTE: We will only be activating chunks with 
addresses above 32768 (VALUE - 16 and above). AERC0 
FD-68 Users: The AERC0 disk system requires that 
chunk 1 be active to utilize the disk, therefore, add 
1 to your VALUE to keep the disk active. 



BANK-SWITCHING RAM (where to get it) 

Add-on bank switchable RAM can be obtained from 
a variety of sources. The AERCO disk .interface comes 
with 64K of additional bank-switchdible RAM built 
right in. Another source is RAM cartridges that plug 
into the 2068 cartridge dock such as the one designed 
by Tom Bent (Quantum Levels), and once marketed by 

Thomas B. Woods, or the one available from Lem 
Software (see the ad on the back cover of this 
magazine for a 32K RAM cartridge). Other sources of 
RAM are available, like the new RAMdisk from LARKEN, 
and there are probably others that I am not aware of. 

WHAT CAN WE DO WITH IT? 

OK, what can we do with this add-on memory? What 
is the #1 complaint about 64K computers? They have so 
little memory to work with! There is always more data 
than memory to hold it! The #1 use for more memory 
will be to store more data. So, my first example is a 
short data transfer program. 

XFER_1 (LISTING A) 

XFER_1 is a ZEUS assembler source listing, ready 
to be assembled. LINE 270 is set to assemble this 
routine starting at 39000 (RANDOMIZE USR 39000). 
Following the source file is a dis-assembly of the 
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routine identifying the memory address, the value at 
that address, and the assembler instruction 
associated with that address. I would like to thank 
AL Schremmer, an active member of the Kansas Area TS 
User Group for writing this very helpful and unique 
dis-assembler! 

XFER_1 is a simple program that will transfer 
(COPY) data from one bank to another bank. As 
written, 24064 bytes of data are copied from 
standard memory starting at address 41300 to the dock 
bank, also starting at address 41300. The "source" 
bank is the source of the data to be copied...and 
could be the dock bank. The "destination" bank is 
where you are copying data to, and could be regular 
memory (with a little modification). Also, this 
example copies data to the same address in the dock 
bank, but you can see that this also can be changed 
easily. 

The way it works is this: after assigning the 
destination and source addresses, and the number of 
bytes to be copied (LINES 290 to 310), the source 
bank is activated (LINES 430 and 440) and 1 byte is 
copied into the accumulator and saved by pushing it 
onto the stack (LINES 450 and 460). Then the 
destination bank is activated (LINES 570 and 580) and 
the saved byte is recalled and stored at it's 
destination address (LINES 590 and 600). The 
destination and source addresses are incremented 
(LINES 670 and 680) while the number of bytes that 
are to be copied is decremented (LINE 690). The 
number of bytes remaining is checked to see if it is 
zero (LINES 700 to 720), and if not, the process is 
repeated. When complete, the source bank is activated 

(LINES 730 and 740), and the program ends with a 
RETURN. 


XFER_2 (LISTING B) 

A second form of data transfer useful in 
bank-switching is the ability to "swap" data between 
banks. This is the function of routine XFER_2. Where 
XFER_1 merely copied data from one bank/address to 
another, XFER_2 performs a swap function, copying the 
data from the source into the destination, and then 


placing the destination byte back into the source! 
This routine works much like XFER_1 above. The key to 
this program is the use of the AF and alternate AF 
registers, and exchanging these to easily allow the 
exchange of the source/destination values. 

XFERJ3 (LISTING C) 

# 

The third example is a merging of the source/ 
destination data. This application superimposes the 
source data on the destination data using the "OR" 
function, and is equivalent of overlaying two 
pictures on a light board... ending up with one. I've 
used this function with my PIXEL PRINT PROFESSIONAL 
(desktop publisher) program, to combine (or merge) 
two PIXEL PRINT files. As you can see, the operation 
of the program is quite similar to the two above with 
a simple modification for the "OR" function. NOTE: 
both the source and destination addresses contain the 
merged data. 

Now, I don't pretend to be a very good assembly 
programmer, so I am sure there are many other ways to 
do these jobs. But, if I have been able to show you 
enough to get your interest peaked, and convinced you 
that BANK-SWITCHING is not an impossible task, then 
I've accomplished my goal! 

Keep TS2068-ing, and start taking advantage of 
2068 BANK-SWITCHING. 


XFER 1 

59000 > 33 


39001 

> 

84 

39002 

> 

161 

39003 

> 

17 

39004 

> 

84 

39005 

> 

161 

39006 

> 

1 

39007 

> 

0 

39008 

> 

94 

39009 

> 

62 

39010 

> 

1 

39011 

> 

211 

39012 

> 

244 

39013 

> 

26 

39014 

> 

245 

39015 

> 

62 

39016 

> 

225 


> Id hi,NN 
<41300> 

> id de,NN 

<41300 > 

> Id be,NN 
<24064> 

> Id a,N 

< 1 > 

> out (N),a 
<244> 

> Id a,(de) 

> push a-f 

> Id a,N 
<225> 


39017 

• 

> 

211 

39018 

> 

244 

39019 

> 

241 

39020 

> 

119 

39021 

> 

19 

39022 

> 

35 

39023 

> 

1 1 

39024 

> 

120 

39025 

> 

177 

39026 

> 

32 

39027 

> 

237 

39028 

> 

62 

39029 

> 

1 

39030 

> 

211 

39031 

> 

244 

39032 

> 

201 

39033 

> 

0 


> out (N),a 
<244> 

> pop a-f 

> Id (hi),a 

> inc de 

> i nc h 1 

> dec be 

> Id a, b 

> or c 

> jr nz,DIS 
<237> 

> Id a,N 
<1> 

> out (N) , a 
<244 > 

> ret 

> nop 


00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 


LISTING A 


y 


XFER 1 


PRACTICAL 

BANK-SWITCHING 


> 

m 

y 

m 

« 

y 


y 


+ THIS SAMPLE PROG. + 
+ WILL COPY 24064 + 
+ BYTES FROM MEMORY + 
+ ADDRESS 41300 OF + 
+ STD. RAM TO 41300 + 
+ OF THE DOCK BANK. + 


y 


j 

5 

y 

w 

* 


(c) S D LEMKE 


1988 


LEMKE SOFTWARE DEVELOP 

2144 WHITE OAK 
WICHITA, KS. 67207 


* 

; GETTING STARTED... 

; SET SOURCE, DEST, AND 
; NUMBER OF BYTES 

ORG 39000 ; CODE ADD. 

LD HL,41300 ; DEST. ADD. 
LD DE,41300 ; SOURCE ADD. 
LD BC,24064 ; LENGTH 

y 

9 --- T - | 

y 

w 

y 

; BEGIN BY ENABLING THE 
; SOURCE BANK AND SAVING 
; THE SOURCE BYTE 


00390 ; SOURCE BANK = 1 (AERCO) 
00400 ; SOURCE BANK = 0 (OTHER) 
00410 ; 

00420 ; 

00430 XFER1 LD A,1 ; SOURCE BbK 
00440 OUT (244),A ; ENABLE II 
00450 LD A,(DE) ; LOAD S. VALUE 
00460 PUSH AF ; SAVE IT 
00470 ; 

00480 ;- 

00490 ; 

00500 ; NEXT, ENABLE THE DEST. 
00510 ; BANK, AND STORE THE 
00520 ; SOURCE BYTE THERE 
00530 | 

00540 ; DEST BANK = 225 (AERCO) 
00550 ; DEST BANK = 224 (OTHER) 
00560 ; 

00570 LD A,225 ; DESTINATION 
00580 OUT (244),A ; ENABLE IT 
00590 POP AF ; RECALL S. VALUE 

00600 LD <HL),A ; STORE IT 

00610 ;- 

00620 ; 

00630 ; INCREMENT THE SOURCE 
00640 ; AND DEST. ADDRESSES. 
00650 ; CHECK TO SEE IF DONE. 
00660 ; 

00670 INC DE ; SOURCE + 1 
00680 INC HL ; DEST. + 1 
00690 DEC BC ; LENGTH - 1 
00700 LD A,B ; "B" INTO ACC. 
00710 OR C ; SUM WITH "C" 
00720 JR NZ,XFER1 ; "BC" = 0 ? 
00730 LD A,1 ; RESTORE S. BANK 
00740 OUT (244),A ; ENABLE IT 
00750 RET ; ALL DONE 
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00010 ; 

00020 ; 

00030 ; 

00040 ; 

00050 ; 

00060 ; 

00070 ; 

00080 ; 

00090 ; 

00100 ; 

00110 ; 

00120 ; 

00130 ; 

00140 ; 

00150 ; 

00160 ; 

00170 ; 

00180 ; 

00190 ; 

00200 ; 

00210 ; 

00220 ; 

00230 ; 

00240 ; 

00250 ; 

00260 ; 

00270 ORG 39000 ; CODE ADD. 

00280 ; 

00290 LD HL,41300 ; DEST. ADD. 
00300 LD DE,41300 ; SOURCE ADD. 
00310 LD BC,24064 ; LENGTH 
00320 ; 

00330 ;- 

00340 ; 

00350 ; BEGIN BY ENABLING THE 
00360 ; SOURCE BANK AND SAVING 
00370 ; THE SOURCE BYTE 
00380 ; 

00390 ; SOURCE BANK = 1 (AERCO) 
00400 ; SOURCE BANK = 0 (OTHER) 


LISTING B 

XFER 2 


PRACTICAL 

BANK-SWITCHING 


THIS SAMPLE PROG. 
WILL SWAP 24064 
BYTES FROM MEMORY 
ADDRESS 41300 OF 
STD RAM AND 41300 
OF THE DOCK BANK. 


+ 

+ 


( 


(c) S D LEMKE 


1988 


LEMKE SOFTWARE DEVELOP 

2144 WHITE OAK 
WICHITA, KS. 67207 


GETTING STARTED... 

SET SOURCE, DEST, AND 
NUMBER OF BYTES 














00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 


9 

XFER2 LD A,1 ; SOURCE BNK 
OUT (244),A ; ENABLE IT 
LD A,(DE) ; LOAD S. VALUE 
EX AF,AF’ ; SAVE IT 


; NEXT, ENABLE THE DEST. 

; BANK, AND STORE THE 
; SOURCE BYTE THERE 

m 

9 

; DEST BANK = 225 (AERCO) 
; DEST BANK = 224 (OTHER) 

? 

LD A,225 ; DESTINATION 
OUT (244),A ; ENABLE IT 
L.D A, (HL) ; LOAD D. VALUE 


00600 EX AF,AF 7 ; SWAP VALUES 
00610 LD (HL),A ; STORE DEST. 
00620 ; 

00630 ; . ENABLE THE SOURCE 

00640 ; BANK, AND STORE THE 
00650 ; DEST. BYTE THERE 
00660 ; 

00670 LD A,1 ; SOURCE BANK 

00680 OUT (244),A ; ENABLE IT 
00690 EX AF,AF J ; SWAP VALUES 
00700 LD (DE),A ; STORE S. BYTE 
00710 EX AF, AF’ ; RESTORE AF 

00720 ;- 

00730 ; 

00740 ; INCREMENT THE SOURCE 
00750 ; AND DEST. ADDRESSES. 
00760 ; CHECK TO SEE IF DONE. 
00770 ; 

00780 INC DE ; SOURCE + 1 
00790 INC HL ; DEST. + 1 
00800 DEC BC ; LENGTH - 1 
00810 LD A,B ; "B" INTO ACC. 
00820 OR C ; SUM WITH "C" 
00830 JR NZ, XFER2 ; “BC" = O ? 
00840 LD A,1 ; RESTORE S. BANK 
00850 OUT (244),A ; ENABLE IT 
00860 RET ; ALL DONE 


0001 o 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 


LISTING C 

XFER 3 


PRACTICAL 

BANK-SWITCHING 


; + THIS SAMPLE PROG. + 
; + WILL MERGE 24064 + 

; + BYTES FROM MEMORY + 
; + ADDRESS 41300 OF + 
; + STD RAM AND 41300 + 
: + OF THE DOCK BANK. + 


(c) S D LEMKE 1988 

LEMKE SOFTWARE DEVELOP. 

2144 WHITE OAK 
WICHITA, KS. 67207 


; GETTING STARTED... 

; SET SOURCE, DEST, AND 
; NUMBER OF BYTES 

ORG 39000 ; CODE ADD. 

LD HL,41300 : DEST. ADD. 
LD DE,41300 ; SOURCE ADD. 
LD BC,24064 ; LENGTH 


BEGIN BY ENABLING THE 
SOURCE BANK AND SAVING 
THE SOURCE BYTE 

SOURCE BANK = 1 (AERCO) 
SOURCE BANK = O (OTHER) 


XFER3 LD A,1 ; SOURCE BNK 
OUT (244),A ; ENABLE IT 


XFER 



00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 


LD A,(DE) 
PUSH AF 


LOAD S. VALUE 
SAVE IT 


NEXT, ENABLE THE DEST. 
BANK, AND STORE THE 
SOURCE BYTE THERE 


DEST BANK 
DEST BANK 


225 (AERCO) 
224 (OTHER) 


LD A,225 ; DESTINATION 

OUT (244),A ; ENABLE IT 
POP AF ; RECALL S VALUE 
OR (HL) ; “OR" DEST VALUE 
LD (HL),A ; STORE DEST. 
PUSH AF ; SAVE SUM VALUE 


_ ENABLE THE SOURCE 

BANK, AND STORE THE 
"SUM" THERE 


LD A, 1 
OUT (244), A 
POP AF ; 
LD (DE),A ; 


; SOURCE BANK 

; ENABLE IT 

RECALL “SUM" 
STORE S. BYTE 


INCREMENT THE SOURCE 
AND DEST. ADDRESSES. 
CHECK TO SEE IF DONE 


INC DE ; 
INC HL ; 
DEC BC ; 
LD A, B ; 
OR C 


SOURCE + 1 
DEST. + 1 
LENGTH - 1 
“B" INTO ACC. 


; SUM WITH "C" 

JR NZ,XFER3 ; "BC" = 07 
LD A,1 ; RESTORE S. BANK 
OUT (244),A ; ENABLE IT 


RET 


ALL DONE 


XFER 



AFR SOFTWARE ® 

Presents: 

Powerful And Inexpensive 
Business Software 
For'Timex-Sinclair" 
Computers 


WORD PROCESSING 

T/S-TEXT 2000.$19.95 

ZX-TEXT.$19.95 

SPREADSHEET CALCULATOR 

T/S-CALC 2000.$19.95 

ZX-CALC.$19.95 

gmL.ACCQVNTINQ 

T/S-ZX Financial Report Generator.$29.95 

Printout Of Same.$13.00 

APPOINTMENT SCHEDULER 

T/S-CALENDAR 2000.$19.95 

ZX-CALENDAR.$19.95 


Send S.AS.E. For Free Catalog 
Or Check Or Money Order To: 
AJ.R. SOFTWARE 
1605 Pennsylvania Avt. 

No. 204 

Miami Beach, FL 33139 
(305)531-6464 

"FLORIDIANS ADD SALES TAX’ 
Dealer inquires invited 
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39002 

> 

161 

39003 
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39004 
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39005 
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1 

39007 
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0 

39008 
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94 

39009 
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62 
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1 

39011 

> 

211 

39012 

> 
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39013 
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26 

39014 
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8 

39015 
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62 

39016 
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> 
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39018 
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39019 
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8 

39021 

> 
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39022 

> 

62 

39023 

> 

1 

39024 
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211 

39025 

> 

244 

39026 

V. 

✓ 

8 

39027 

> 

13 

39028 

s 

8 

39029 

> 

19 

39030 
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35 

39031 
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11 

39032 

> 
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39033 
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> 

32 

39035 

> 

229 

39036 

> 

62 

39037 

> 

1 

39038 

> 

211 

39039 

> 

244 

39040 

> 

201 


> Id h 1, NN 

< 41300> 

> Id de,NN 
<41300 

> Id be,NN 

<24064> 

> Id a, N 

< 1 > 

> out (N) , a 

< 244 > 

> Id a,(de) 

> ex at, a-f ’ 

> Id a, N 

< 225 > 

> out (N),a 
<244 > 

> Id a, (hi) 

> ex a-f, a-f ’ 

> Id (hi),a 

> Id a, N 

<1 > 

> out (N),a 
<244 > 

> ex a-f , a-f 9 

> Id (de),a 

> ex a-f , a-f 7 

> inc de 

> inc hi 

> dec be 

> Id a, b 

> or c 

> jr nz,DIS 
■ <229 > 

> Id a, N 
< 1 > 

> out (N),a 
<244 > 

> ret 


39000 

> 

33 

39001 

> 

84 

39002 

> 

161 

39003 

> 

17 

39004 

> 

84 

39005 

> 

161 

39006 

> 

1 

39007 

> 

0 

39008 

> 

94 

39009 

> 

62 

39010 

\ 

• 

✓ 

1 

39011 

> 

211 

39012 

> 

244 

39013 

> 

26 

39014 

> 

245 

39015 

> 

62 

39016 

> 


3901.7 

> 

'211 

39018 

> 

244 

39019 

> 

’241 

39020 

> 

182 

39021 

> 

119 

39022 

> 

245 

39023 

> 

62 

39024 

> 

1 

39025 

> 

211 

39026 

> 

244 

39027 

> 

241 

39028 

% > 

+ 

*18 

39029 

> 

19 

39030 

> 

35 

39031 

> 

11 

39032 

> 

120 

39033 

> 

177 

39034 

> 

32 

39035 

> 

229 

39036 

> 

62 

39037 

> 

1 

39038 

> 

211 

39039 

> 

244 

39040 

> 

201 


> Id hi,NN 
< 41300 > 

> Id de,NN 
<41300 

> Id be,NN 

<24064> 

> Id a, N 

<1> 

> out (N),a 
<244> 

> Id a,(de) 

> push a-f 

> Id a, N 
<225> 

> out (N),a 
<244> 

> pop a-f 

> or (hi) 

> Id (hi) ,a 

> push a-f 

> Id a, N 

< 1 > 

> out (N),a 
<244> 

> pop a-f 

> Id (de),a 

> inc de 

> inc hi 

> dec be 

> Id a, b 

> or c 

> jr nz,DIS 
<229> 

> Id a, N 

< 1 > 

> out (N),a 
<244> 

> ret 


16 





























AERCO MERGE FUNCTION 

by Larry Zunk 

Larry Zunk of Zunk Custom Electronics (4800 East 
Cedar lane, Norman, Oklahoma 73071), shares a few 
routines for the AERCO FD-68 disk drive system. Larry 
has programmed a powerful software package for the 
FD-68 called "CADZ" (watch for review in upcoming 
issue, or write to the above address for further 
details). 


This is a tip for all Aerco FD-68 users. The 
basic MERGE function has never been available, but a 
simulated merge can be accomplished. 

Rule #1: line numbers must be consecutive. Rule 
#2: get rid of all variables. Rule #3: is make sure 
there is enough room for both listings. 

It works like this. In the immediate mode, type: 

CAT "first program.BAS", 

CLEAR 65535 


POKE 23635,PEAK 23627 (POKE prog,vars) 

POKE 23636,PEAK 23628 
CAT "second program.BAS", 

(NOTE: Execution will stop here, and all you 

will see is the second listing.) Then also in the 
immediate mode, type: 

POKE 23635,86 

POKE 23636,104 (POKE prog,26710) 

LIST 


SUPER DETAILED DISK DIRECTORY 

by Larry Zunk 


The following program listings are for the AERCO 
FD-68 Disk Drive System. I must give credit to Mowgli 
Assor for his user tips in the SEP/OCT '87 issue of 
TDM. His machine code routines are the heart of these 
programs. 

Listing 1 is a 32 column detailed disk direc¬ 
tory. Listing 2 is a 64 column detailed directory for 
use with the Advanced Video Modes software by BEAVER 
COMPUTER PRODUCTS. Either version can be run in BASIC 
or compiled with the TIMACHINE compiler by NOVELSOFT. 

The directory gives file name, type, length, 
location, auto start line numbers, length of vari¬ 
ables, active chunks, and tracks allocated for each 
file. Although the information is the same, I prefer 
the 64 column version because everything fits on one 
line and it gives a much cleaner screen display. 

My system is double-sided double-density, so 
some changes to the machine code in the data state¬ 
ment may be required for other systems. The disk 
directory is on track 0 sectors 2 and 3. The code 
sets the start of the buffer at E290h (58000 decimal) 
and reads track 0 sector 2, then increments the 
buffer address held in the HL register by 512 bytes. 
Then it sets the B register to 3 and reads sector 3. 
The AERCO user manual states that a single-density 
system has 256 bytes per sector and a double-density 
system has 512 bytes per sector (I assume that a 
quad-density system would have 1024 bytes per 
sector). This is what will need to be changed for 
systems other than DD/DD. 


LISTING 1 

10 REM !USR 60000 
20 REM !INT +LEN,LNLOC,URR,BUF 
,TYP,LOC,F,E 

30 REM !LEN P$<=27 
40 REM ! LIST 
50 REM ! OPEN it 
60 FOR F =59967 TO 59999: RERD 
E: POKE F,E: NEXT f: RANDOMIZE U 
SR 59967 

70 DRTR INT 62,3,211,244,205,6 
6,53,1,2,0,33,144,226,205,86,53, 
1,3,0,33,144,223,205,86,53,205,1 
30,53,62,1,211,244,201 
80 LET BUF=53032 

90 LET P$="BR5DATCHRBIN3CRAR0L 
ROBUTUAR" 

100 CLS : PRINT INUERSE, 1; " FI 
LE LINEtt URRS NR 

ME TYPE BYTES LOC CHUNK"; I 

NUER5E 0;RT 0,21; OUER 1; "_ 

_“;RT 2,0; 


110 LET LuC =BUF: LET TYP=PEEK L 
OC + 3 + 1: LET LOC=LOC+l: LET E=LOC 
+ 10 

120 IF PEEK LOCO0 AND LOC<E TH 
EN PRINT CHR$ PEEK LOC;: LET LOC 
=LOC+l: GO TO 120 
130 LET LOC =E 
140 GO SUB 300: LET LEN=E 
150 GO SUB 300: LET LNLOC =E 
160 GO SUB 300: LET URR =E 
170 IF TYP =13 THEN LET LEN=6912 
180 PRINT TAB 10;".";P$(TYP TO 
TYP+2);TRB 15;LEN;TRB 21; 

190 IF TYP =1 AND LNLOC<10000 TH 
EN PRINT "l";LNLOC;TRB 27;LEN-UA 
R * 

200 IF TYP =10 THEN PRINT LNLOC; 
TRB 27;INT,(UflR/256)-2; 

210 IF TYP =13 THEN PRINT 16334; 
220 PRINT TRB 0;"*"; 

230 IF PEEK LOCO0 THEN PRINT P 
EEK LOC;"*";: LET LOC=LOC+l: GO 
TO 230 

240 POKE 23689,PEEK 23689+1: PR 
INT OUER 1;"_ 

la 

250 LET BUF=BUF+32 

260 PRINT TRB 0; ; 

270 IF PEEK 23689=2 THEN PRINT 
til; RT 1,0; INUERSE 1;" HIT E 

NTER TO CONTINUE "; INUERSE 

0: PAUSE 0: GO TO 100 
280 IF LOC>58992 THEN STOP 
290 GO TO 110 

300 LET E=PEEK L.0C+256+PEEK (LO 
C+l): LET L0C=L0C+2: RETURN 
310 REM ! CLOSE it 
9999 ERRSE "32C0LDIR.BAS",: MOUE 
"32C0LDIR.BAS", 


LISTING 2 


10 REM !USR 50000 

20 REM !INT +LOOP,LNLOC,URR 
EN , LOC , B () ,N,F 


30 REM 
40 REM 
50 REM 


LEN P$ < =27 



OPEN it 



Listing Continued Next Page 
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55 DRTR INT 62,3,211,244,205,6 
6,53,1,2,0,33 /144', 226,205,86,53 , 
1,3,0,33,144,228,205,86,53,205,1 
30,53,62,1,211,244,201 

56 FOR F=59957 TO 59999: RERD 
N: POKE Fy N i NEXT f: RRNDOMIZE U 
5R 59967 

60 RRNDOMIZE USR 61450: POKE 2 


3578,21: PRINT tt4,\CHR$ 3+CHP$ 62 


;CHR$ 0 

70 LET L00P=16: LET LOC=58031: 
DIM B(25) 

80 LET P$=i‘ , Bfl5DRTCHRBINSCRRR0L 
ROBUTURR" 


90 PRINT RT 0,0; INUERSE 1;“ F 
i le Name Typ:Bytes+Uars :Line:Rd 
dr :Chun ks:Tra c Ks **************"; 


INUERSE 0 

100 FOR F = 1 TO LOOP 


110 FOR N =1 TO 25: LET B(N) =PEE 


K (LOC+N): NEXT N 
120 FOR N=2 TQ 11: IF b(n) >31 T 
HEN PRINT RT f,n-2;CHR$ b(n); 

130 NEXT n: LET. URRS=B (1) *3 + 1: 
PRINT TRB 10; " . P$ (URRS TO URRS 
+2) ;TRB 15 * 

140 LET LEN=B(12)+256*B(13) 


150 LET LNLOp=B(14)+256*B(15) 
160 LET URR5=B(16)+256*B(17) 

170 IF B(1)=0 THEN PRINT URRS;T 
RB 20;"+";LEN-URRS;TRB 27;(LNLOC 
RND LNLOC<10000) ; 

180 IF B(1)=3 OR B(1)=8 THEN PR 
INT LEN;TRB 32;LNLOC;TRB 38;: IF 
b(1)=3 THEN PRINT B(17)-2; 

190 IF B(1)=4 THEN PRINT 6912;T 
RB 32;16384; 

200 PRINT TRB 44;: FOR N=18 TO 
25: IF B(N) >0 THEN PRINT (B(N)-( 
87 RND B(N) >99))I "; 

210 NEXT N ’ 

220 LET L0C=L0C+32 
230 NEXT f 

240 PRINT ' INUERSE 1;" HIT 

CENTERS OR IFIRE BUTTON] TO 
CONTINUE . ; INUERSE 0 

250 IF INKEY$="" RND STICK (2,1 
)=0 THEN GO TO 250 
260 PRINT CHR$ 0; : IF L00P = 15 T 
HEN PRINT CHR$ 3+CHR$ 0;CHR$ 0: 
POKE 23578,6: STOP 
270 LET LOOP =15: GO TO 90 
280 REM ! CLOSE it 
9999 OUT 244,1: ERRSE "neuJdir.ba 

s " , : MOUE “neuudi r . bas " , 


SYNX 


by Jack Dohany 


SYNX is a 46-byte relocatable MC routine for 
AERCO disk drive system users. It is given into the 
"public domain". SYNX is short for "Syntax Checker 
Switch". This routine allows you to turn off the 
BASIC syntax checker when writing or editing BASIC 
lines...and to turn it back on. Syntax checking 
during program execution remains in effect. 

Why? Perhaps you may want to write a BASIC pro¬ 
gram that can be used on a non-AERCO disk system 
(perhaps for ALL disk systems). You may want to write 
a line like this: 

500 SAVE *"TEST": REM for Zebra disk 

Well, you can't write it because it will fail 
syntax checking. But with the syntax checker turned 
off, you can write it. 

SYNX works by changing some locations in the 
BASIC operating system...normally in ROM, but in RAM 
with AERCO disk. A more detailed explanation is 
beyond the scope of this article. 

Assuming you have the code on disk or tape as 
.BIN or CODE file, it can be loaded wherever there's 
no conflict with other software. Let us say you want 
to load it at Loc 64000: CAT "SYNX.bin",64000 or LOAD 
"SYNX" CODE 64000 will do it. 

To SAVE the code: MOVE "SYNX.bin",64000,46 or 
SAVE "SYNX" CODE 64000,46 

To use SYNX (assuming the code is at 64000): 

RANDOMIZE USER 64000 turns the syntax checker 
OFF. RANDOMIZE USER 64002 turns the syntax checker 
back ON. 


Here is the SYNX code as a decimal listing, 
ready to be POKEd into memory however you wish: 


64000 

24 

64020 

24 

64040 

0 

64001 

27 

64021 

221 

64041 

243 

64002 

24 

64022 

197 

64042 

237 

64003 

18 

64023 

225 

64043 

176 

64004 

0 

64024 

1 

64044 

251 

64005 

0 

64025 

11 

64045 

201 

64006 

0 

64026 

0 



64007 

253 

64027 

24 



64008 

54 

64028 

5 



64009 

0 

64029 

197 



64010 

255 

64030 

255 



64011 

0 

64031 

1 



64012 

0 

64032 

4 



64013 

205 

64033 

0 



64014 

% 

13 

64034 

9 



64015 

13 

64035 

17 



64016 

253 

64036 

76 



64017 

54 

64037 

14 



64018 

0 

64038 

1 



64019 

255 

64039 

9 




Of course, if you get a single number wrong, the 
computer is likely to crash when you attempt to use 
SYNX. So it is a good idea to SAVE before you test it 
out. 


TIMACHINE ON AERCO DISK 


by Carl Green 


Here is a hint for putting TIMACHINE (Novelsoft) 
on the AERCO disk drive system. I found the FD-68 

does not like: 

1) equations 

2) VAL "_" 

3) more than one period (.) 

4) scientific notations (eg: 6e4) 

in the CAT and MOVE statements. Try the following for 

TIMACHINE: 

1) LOAD the whole program from tape. 

2) Move the cursor to the right of the quotation 

marks. 

3) DELETE the quotation marks. 

4) Press STOP once, then ENTER twice. 

5) Change line 8070 to read: 

8070 PRINT AT 19,0: MOVE "TSTIME 
. BAB" ,9997: MOVE "TSTMLGO.BIN",6 
0614,4922: MOVE "TSSETUP.BIN",60 
000,83: MOVE "TSTIME2.BIN",26688 
,11458 


6) Change line 9997 to read: 

9997 CLEAR 60613: INK 6: PAPER 6 
: BORDER 6: CLS : PRINT AT 19,0: 

CAT "TSTMLGQ.BIN",: RANDOMIZE U 
SR 60614: INK 6: PRINT AT 19,0: 
CAT "TSSETUP.BJN",: RANDOMIZE 11 
458: LET X=USR 60000: PRINT AT 1 
19,0: INK 6: CAT "TSTIME2.BIN",: 
INK 0: GO TO 8000 


7) OUT 244,1 

8) GOTO 8000 

9) Put formatted disk in. 

10) At the "BACK UP?" option, press "Y". 

TIMACHINE should now be on disk with the backup 
option operational. 






From the time I first bought my Timex Sinclair 
1000 for a close-out price of $29.95 (around 1982), I 
have always dreamed of the day when I could have a 
"complete" computer system. 

I moved one step closer with the purchase of a 
used TS2068 in November of 1986. But I was still 
stuck with using cassette tapes. 

Next I moved up to A&J Microdrives (for my 
TS2068). It was so much faster and easier to use. 
Over the next few weeks I spent a lot of time con¬ 
verting all of my cassette software to the A&J. I was 
happy with the A&J for almost six months...maybe even 
a little longer. 

Then one day I was over at a friend’s home and 
saw how nice his computer worked with a disk drive 
system. Now that would really be something to have a 
disk system for my hard-working Timex Sinclair. But, 
it was just too expensive to add one to my computer 
system. 

Then along came Mr. Larry Kenny of LARKEN 
ELECTRONICS, and his floppy disk drive system for the 
TS2068. The cost was low enough to give it a try. Now 
about a year later, my present system includes the 
used 2068, a Larken disk drive system, a dual Amdek 
Amdisk III, one Quad 5 1/4" drive, an RX-80 Epson 
printer, an Aerco printer interface, a TS2040 
printer, a 2050 modem, a green screen monitor, and 
lots of software. If I had the money that I have 
spent on this system over the last six years, I could 
buy a "basic" PC compatible, with NO software or 
peripheral hardware. I'm going to stick with my 
Sinclair. 

Now that you know a little of the history of my 
hardware system, maybe I can help you convert 
cassette (or A&J Micro Drive cartridge) software to 
the Larken Disk Drive system. During this last year, 
I have, with the help and advise of some fellow 
Sinclair users, converted the following software to 
the Larken: 

Tasword II, Pro/File 2068, Pro/File +5, VuFile, 
VuCalc, Timemachine, Pixel Print, Zeus, Loader V, Jet 
Set Willy, Voice Chess, Greeting Card Designer, 
Banner Designer, Personal Accountant, Kruncher, pro¬ 
grams on the original tape supplied with the 2068, 
and many other pieces of software taken from a 
variety of sources. 

Changing all of this software to the Larken DOS 
(Disk Operating System) has one thing in common: the 
changes made in each program is a modification of the 
BASIC save and load commands, to save the program, to 
load and save code, to load and save data strings, to 

load and save screen strings. Refer to the Larken 
operations manual for instructions on how the 
"RANDOMIZE USR 100" is used before each load or save 

command in your BASIC program. The following listing 
is an example of how these changes were made in 
TASWORD II (2068 word processor )j 


15 RANDOMIZE USR 100: OPEN 84. 
"dd": POKE UAL "23609",UAL "2" : ' 
CLEAR UAL "33279": GO SUB UAL "4. 
000": BORDER UAL "2": PAPER UAL 
"4.": INK UAL "9": PRINT 84: LOAD 
"TUJ.Ct"CODE : CLS : LET a=USR U 
AL "59031": GO TO UAL "10" 

25 GO SUB UAL "4000": PRINT AT 
UAL "2",UAL 
e";TAB UAL "i 
23 PRINT : 


le";TAB UAL 
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ave tas uj ord 


into Basic"; 


50 PRINT : PRINT 
" TAB UAL "31"; "t" 

55 PRINT : PRINT 
TAB UAL "SI";"V 

60 "PRINT .- PRINT "DIRECTORY"; T 
AB 31:"d" 

70 PRINT AT UAL "20",UAL "0 
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ti is . «s 
} 


IF b =UA1 


115" THEN LET i=U 


n c n 
ri 


b=UAL "106" THEN LET i=U 
b =UAL ”116" THEN LET i=U 


b=UAi 
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THEN LET i=U 



b =UAL "121" THEN LET i=U 


IF b = UAL "109" THEN LET i=U 


IF b =UAL 


103" THEN LET i=U 


IF b =UAL "93" THEN LET i=UA 


IF b=UAL "100" THEN GO TO U 


I 1 t ! 
• t 


GO SUB 


110 
AL 

120 IF 
AL "3" 

125 IF 
AL "16" 

130 IF 
AL "4" 

140 IF 
AL " 

150 

AL "10" 

160 

AL "14" 

170 

L "IS" 

AL'"9970” 

700 CLS : LtT i=UAL 
UAL "300": GO SUB UAL "9900": L 
ET a $ = "TU": PRINT 84: SAUE a$ + ". 
Bt" LINE UAL "15" 

710 PRINT 84: SAUE a $ + ",Ct"CODE 
UAL "54734",UAL "10751": GO TO 
UAL "25" 

1030 LET i=UAL "12": GO SUB UAL 
"300": GO SUB UAL "9900”: PRINT 
84: SAUE a $ + ",Ct"CODE b,a: CLS 
2030- LET b = FN P (UhL "62215") : GO 
SUB UAL "9900": PRINT 84- LOAD 
a $ + ".C t"CODE ia + b) , ( iFN p i UAL "6 
2221")+UAL "22")*UAL ”64"-a): GO 
TO UAL "10" 

9900 INPUT "Drive: 0, 1, 2, 5 

;Dr: PRINT 84: GO TO Dr': RETURN 
9970 CLS : GO SUB UAL "9900"- PR 
INT 84: CAT "",: PAUSE 0: CLS : 
GO TO UAL 


ii , 2T * * 


Line 15 sets up the PRINT #4 command that will 
be used before each save and load command in the pro¬ 
gram. Line 60 adds a disk directory choice to the 
tasword menu. Line 175 is the IF..THEN statement used 
by the menu to call Line 9970. Line 9970 calls the GO 
SUB Line 9900 which gives you a choice of which drive 
you want and then returns to do the catalog of that 
chosen drive. After the directory is done, the pro¬ 
gram will return to the main menu. Please note that 
the drive selection GO SUB Line 9900 is also called 
by both the load and save lines of the 'program. Lines 
700-710 are the save lines that will save Tasword II 
to disk. Line 1030 is the save line that will save 
all files (letters or documents) to disk. Line 2030 
is the load line that will load your chosen file from 
the disk to Tasword. 

I know that this is a brief description of how 
these lines are changed. But there is one area of 
concern that has to be dealt with in making these 
changes. That area is the memory spaces for the basic 
program. You will note in Line 15, that RAMTOP is 
lowered to 33279, and then the Tasword code is loaded 
above that. The basic program cannot be written above 
that address. If you change that address...we 11, 
that's another complete article. 

There are a number of ways that the original 
basic program can be changed to free up memory space 
to allow for these changes. If you are going to 
dedicate the program to disk use only, you can go in 
and DELETE the cassette VERIFY routines. The Larken 
system uses the VERIFY command as a "disk check" 
command (refer to the Larken manual for further 
details). You can also change or eliminate any 
prompts that are displayed on the screen concerning 
the loading, saving, or verifying of cassette tapes. 
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One more way to free up program memory space is 
the use of the KRUNCHER program (written by Syd 
Wyncoop and available from RMG Enterprises). KRUNCHER 
will "modify" the basic listing. It places all 
numbers found in the listing inside VAL "" state¬ 
ments. and replaces the number 0 with NOT PI, 1 with 
SGN PI, and 3 with INT PI. These tokens have the same 
value as the number. There is one problem in using 
the KRUNCHER program: it does not change negative 
numbers correctly. A -250 will be changed to VAL 
"-250", which causes a syntax error in the basic 
program. The way to correct this is, before you 
"krunch" the program, list it out and put any 
negative number inside brackets (-250 will be 
-(250)). The KRUNCHER program will now convert this 
number correctly. 

There are some other problems encountered when 
converting cassette software to disk. One of the 
first ones you may come across, is the program (or 
file) name. Cassette allows a name to be ten char¬ 
acters long. Larken allows up to six characters plus 
an "extension". You can see how the program (file) 
name and extension are used, by looking at the load 
and save lines of the Tasword listing example (please 
refer to the Larken manual for rules concerning the 
use of extensions). Some basic programs include a 
"test statement", testing for the cassette ten 
character name length. These statements will have to 
be changed to conform to the Larken file name length. 

I hope that I have been able to help some of 
you with the change from cassette to Larken disk. If 
any of you have suggestions on how these changes can 
be made easier than I have listed, please feel free 


to contact me. I’m Gaylen W. Bench, and my address 
is: 900 N.W. Mawcrest Dr. #110, Gresham, Oregon 

97030. You can also contact me via CompuServe (ID# 
73720,755), or on the RMG BBS (503-656-8072; settings 
8/1/N). I will gladly pass any updated information to 
TDM readers in a future article. 

The information provided in this article is a 
long way from being complete on how to convert every 
program to disk. If any of you would like assistance 
in making these changes, please contact me, and we 
will work out some arrangement on how to get the job 
done. 

One more important find. If any of you have 
attempted to put a choice in your basic program to 
switch between the Timex 2040 printer and a full-size 
printer, you will run into a problem using the Larken 
system. For some reason the Larken system over-writes 
the 2068's print buffer. You can find out if you have 
this problem by doing an LLIST to the 2040 printer. 
If the first thing printed is garbage, then you have 
the problem. I tried for about a year to find a 
solution. Whenever I would use the PRO/FILE +5 pro¬ 
gram, I could not switch back to the 2040 printer 
after using the full-size printer... the program would 
"crash". The correction to this problem is so simple! 
When you change back to the 2040, the first thing you 
need to do is a simple "LPRINT". This clears the 2068 
print buffer and now you can print with the 2040 
without any trouble. 


PASCAL DISK HANDLER FOR THE LARKEN 

Article by David Solly 
Programs by David Solly and Larry Kenny 

Access to the Larken Disk Drive System from within 
a compiled HiSoft(TM) Pascal program is now 
possible thanks to the procedures developed by 
David Solly and Larry Kenny. This article 
demonstrates how to install these procedures and 
gives a practical demonstration on how they may be 
used within a simple directory program. The 
procedures described in this article are valid for 
both the Timex Sinclair 2068 and the ZX Spectrum 
versions of HiSoft Pascal. 


I have owned HiSoft Pascal, (henceforth Pascal), for the 

timex Sinclair 2068 and the ZX Spectrum for a number of 

years now but the drawback with Pascal, as it is implemented 

on Sinclair computers, has been that there was no way to 

access a DOS from within a compiled program. It seemed 

ridiculous to put the effort into creating programs which 

ran like machine code once the source code was debugged, 

compiled and transfered to disk only to be forced to go back 

to a plodding tape operating system, (henceforth TOS), when 

I needed to save or enter data from within the compiled 

program. Finally I sat down and did some serious study of 

the problem, some head scratching, some question asking 

(especially of Larry Kenny, who is the creator of the Larken 

DOS, and Ken Schieman) and some experimentation. The result 

of this is the creation of the Pascal disk handler described 
below. 

The needs of LKDOS are the same as for the TOS. You are 

required to provide the name of your program, the starting 

address of the program and the lenght of the program. This 
is exactly what happens when you type within Basic: 

SAVE "Myprogram" CODE start, length. 

Pascal also passes the same information to the TOS when it 
saves out a variable through the use of the procedure: 

TOUT (’Myprogram’, ADDR (the name of the variable being 
saved), SIZE (the name of the variable being saved)); 


The crux of the problem is that, although both languages 
generate identical information, LKDOS can extract it only 
from within the Basic environment. Therefore, additional 
programming is need in order to transfer the save or load 
parameters to LKDOS from within the Pascal environment. 

The first steps towards transfering the required information 
form Pascal to LKDOS are to store the name, the start 
address, and the length of the varialble to be saved or 
loaded in a safe area of the RAM. This is a simple matter 
thanks to the very versatile POKE() function in Pascal. 
Unlike the POKE command available in Basic, this Pascal 
function can DOKE a number or POKE the contents of a whole 
character array starting at a given address. The first 
fifteen bytes of the printer buffer proved to be the safest 

area to which all the transfers can be achieved with the 
following lines: 

POKE (23300, ’Myprogram’); 

POKE (23311, ADDR (name of variable)); 
and 

POKE (23313, SIZE (name of variable)); 

You can see these lines in a modified form in the 

demonstration program within the procedures GETNAME, 
DISKSAVE and DISKLOAD. 
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Upon completion of these steps the next step is to copy the 
information from its storage place in the RAM to the 
appropriate routines in the LKDOS. Again to HiSoft includes 
within their implementation of Pascal the procedure INLINEO 
wich allows us to embed Z80 machine code within a Pascal 
procedure to accomplish our ends. 

The following is a disassembly of the machine code used in 
the procedure DOUT 


00010 

NAME 

EQU 23300 



00020 

PROGNM 

EQU 8226 



00030 

TEMP4 

EQU 8243 



00040 

TEMP2 

EQU 8241 



00050 

NMIF 

EQU 8194 



00060 

ADDR 

EQU 23311 



00070 

SIZE 

EQU 23313 



00080 

SV1 

EQU 0204 



00090 

SV2 

EQU 0207 



00100 


ORG 40000 



00110 


DI 

• 

9 

Disable interrupt 

00120 


CALL 98 

• 

9 

Turn on LKDOS cartridge 

00130 


LD HL,NAME 

• 

9 

Transfer file name 

00140 


LD DE,PROGNM 

• 

9 

to prognm 

00150 


LD BC,09 



00160 

MOVE 

LD A,(HL) 

• 

9 

Loop to catch any 

00170 


CP 0 

• 

9 

occurance of CHR# 0 

00180 


JR NZ,NZERO 



00190 


LD (HL),32 

• 

9 

& replace with a space 

00200 

NZERO 

LD I 



00210 


LD A,B 



00220 


OR C 



00230 


JR NZ,MOVE 



00240 


LD A,11 



00250 


LD (NMIF),A 



00260 


CALL SV1 

• 

9 

Save name 

00270 


LD HL,(ADDR) 

• 

9 

Retrieve start address 

00280 


LD (TEMP4),HL 

• 

9 

Set start address 

00290 

# 

LD HL,(SIZE) 

• 

9 

Retrieve length of save 

00300 


LD (TEMP2),HL 

• 

9 

Set length of save 

00310 


CALL SV2 

• 

f 

Second save data 

00320 


LD A,(100) 

• 

9 

Exit cartridge 

00330 


El 

• 

9 

Enable interrupt 

(Progr 

am provided by Larry Kenny 

of 

Larken Electronics, #2 

Navan, 

Ontario, 

Canada K4B 1H9, 

Tel 

: (613)-835-2680) 


(Listing made using Zeus Assembler) 


The procedure DIN contains the same code except that SV1 and 
SV2 are replaced with LD1 EQU 198 and LD2 EQU 201. The MOVE 

loop insures that the file name is padded out with the 

correct number of spaces so that it totals nine characters 

and spaces otherwise the file name may be corrupted and fail 
to reload. 

The following listing demonstrates how all the procedures 
described above are used within a complete Pascal program. 
The object of the program is to create a simple telephone 

directory which will allow you to store ten names and 

numbers, read the information stored in the directory, and 
read and write the information stored in the directory to 
disk using the Larken LKDOS. There is also a summation of 
this article contained in the procedure SONGANDDANCE 


Pascal source code listing 


10 {PROGRAM BY: } 

20 {DAVID SOLLY ) 

30 {1402-1545 ALTA VISTA DRIVE) 

40 {OTTAWA, ONTARIO ) 

50 {CANADA K1G 3P4 ) 

60 {TEL: (613)-731-2120 ) 

70 
80 

90 {THIS PORGRAM IS FOR > 

100 {DEMONSTRATING HOW THE ) 


110 {LARKEN DISK DRIVE MAY BE } 
120 {ACCESSED FOR STORING AND ) 
130 {RETRIEVING DATA WITHIN A ) 
140 {HISOFT(TM) PASCAL PROGRAM.) 
150 {THE PROCEDURES DESCRIBED ) 
160 {IN THIS PROGRAM ARE VALID ) 
170 {FOR BOTH THE ZX SPECTRUM ) 
180 {AND THE TIMEX SINCLAIR ) 
190 {2068 VERSIONS OF HISOFT ) 
200 {PASCL. ) 


210 

220 

230 PROGRAM LARKENDEMO; 

240 

250 CONST 

260 LENGTH = 10; 

270 PN * 23300; {ADDRESS WHERE THE NAME FOR THE SAVE/LOAD) 

280 {ROUTINES IS STORED) 

290 PB =* 23311; {CONTAINS THE ADDRESS WHERE THE DATA BEGINS) 

300 PS * 23313; {CONTAINS THE NUMBER OF BYTES USED BY THE DATA) 

310 CAPSLOCK = 23658; {ADDRESS OF THE CAP SHIFT LOCK CONTROL) 
320 ON =8; {SWITCHES CAPSLOCK ON) 

330 OFF = 0; {SWITCHES CAPSLOCK OFF) 

340 

350 

360 TYPE 

370 ENTRY = RECORD 

380 NAME : ARRAY Cl.. 10 3 OF CHAR; 

390 NUMBER : ARRAY Cl..10) OF CHAR; 

400 END; 

410 

420 

430 VAR 

440 DIRECTORY : ARRAY Cl..LENGTH] OF ENTRY; 

450 I : INTEGER; 

460 FINISHED : BOOLEAN; 

470 ANS : CHAR; 

480 

490 

500 

510 

520 PROCEDURE DOUT; {INVOKES LKDOS WRITE) 

530 BEGIN 


540 

INLINE 

(#F3, 

#CD, 

#62, 

#00, 

#21, 

#04, 

#5B, 

#11, 

550 


# 22, 

#20, 

#01, 

#09, 

#00, 

#7E, 

#FE, 

#00, 

560 

# 

#20, 

#02, 

#36, 

#20, 

#ED, 

#A0, 

#78, 

#B1, 

570 


#20, 

#F3, 

#3E, 

#0B, 

#32, 

#02, 

#20, 

#CD, 

580 


#CC, 

#00, 

#2A, 

#0F, 

#5B, 

#22, 

#33, 

#20, 

590 

600 

610 

620 

630 

640 

650 

END; 

PROCEDURE ! 
BEGIN 

#2A, #11, #5B, #22, #31, 
#00, #3A, #64, #00, #FB) 

DIN; {INVOKES LKDOS READ) 

#20, 

• 

f 

#CD, 

#CF, 

660 

INLINE 

(#F3, 

#CD, 

#62, 

#00, 

#21, 

#04, 

#5B, 

#11, 

670 


#22, 

#20, 

#01, 

#09, 

#00, 

#7E, 

#FE, 

#00, 

680 


#20, 

#02, 

#36, 

#20, 

#ED, 

#A0, 

#78, 

#B1, 

690 


#20, 

#F3, 

#3E, 

#0B, 

#32, 

#02, 

#20, 

#CD, 

700 


#C6, 

#00, 

#2 A, 

#0F, 

#5B, 

#22, 

#33, 

#20, 

710 

720 

730 

END: 

#2A, 

#00, 

#11, 

#3A, 

#5B, 

#64, 

#22, 

#00, 

#31, 

#FB) 

#20, 

• 

> 

#CD, 

#C9, 


740 

750 

760 PROCEDURE GETNAME; 

770 VAR 

780 PROGNM : ARRAY Cl..93 OF CHAR; 

790 

800 BEGIN 
810 WRITELN; 

820 v POKE (CAPSLOCK, OFF); 

830 WRITELN ('NAME FOR DISK OPERATION? ').; 

840 WRITELN; * ' 

850 WRITE ('9 CHARACTERS MAXIMUM: '); ■ 

860 READLN; 

870 READLN (PROGNM); 

880 POKE (PN, PROGNM); {STORES THE NAME IN RAM) 

890 END; 

900 

910 

920 PROCEDURE DISKSAVE; 

930 BEGIN 
940 PAGE; 

950 WRITELN; 

960 WRITELN ('LARKEN DISK SAVE ROUTINE'); 

970 WRITELN; 

980 GETNAME; 

990 POKE (PB, ADDR (DIRECTORY)); {START ADDRESS FROM WHERE THE) 
1000 (DATA IS TO BE SAVED) 

1010 POKE (PS, SIZE (DIRECTORY)); {NUMBER OF DATA BYTES TO SAVE) 
1020 DOUT; 

1030 WRITELN ('SAVED!'); 

1040 FOR I := 1 TO 100 DO {PAUSE LOOP) 

1050 END; 

1060 
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1070 

1080 PROCEDURE DISKLOAD; 

1090 BEGIN 
1100 PAGE; 

1110 WRITELN; 

1120 WRITELN (’LARKEN DISK LOAD ROUTINE'); 

1130 WRITELN; 

1140 GETNAME; 

1150 POKE <PB, ADDR (DIRECTORY)); (START ADDRESS AT WHICH THE} 

H60 {DATA IS TO BE LOADED) 

1170 POKE (PS, SIZE (DIRECTORY)); (NUMBER OF DATA BYTES TO LOAD} 
1180 DIN; 

1190 WRITELN ('LOADED!'); 

1200 FOR I :* 1 TO 100 DO (PAUSE LOOP) 

1210 END; 

1220 

1230 


1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 


PROCEDURE FILLDIRECTORY; 

BEGIN 

PAGE; 

POKE (CAPSLOCK, OFF); 

FOR I := 1 TO LENGTH DO 
BEGIN 

WITH DIRECTORY Cl) DO 
BEGIN 

WRITELN (’ENTRY NO. I, 'OF ', LENGTH) 
WRITELN; 

WRITE ('NAME PLEASE (10 CHARS) '); 

READLN; 

READ (NAME); 

WRITE ('NUMBER PLEASE (10 CHARS) '); 
READLN; 

READ (NUMBER) 

END 

END; 

WRITELN ('DIRECTORY FULL '); 

WRITELN; 

WRITELN ('HIT ANY KEY TO CONTINUE'); 

READLN 

END; 


f 


1950 WRITELN ('serious programing in these'); 

1960 WRITELN ('languages has been the lack of*); 

1970 WRITELN ('disk I/O routines. This program’); 

1980 WRITELN ('will demonstrate how the Larken’); 

1990 WRITELN ('disk drive system may be'); 

2000 WRITELN ('accessed for storing and ')} 

2010 WRITELN ('retrieving data within a'); 

2020 WRITELN ('HiSoft(TM) Pascal program. The'); 

2030 WRITELN ('procedures described in this '); 

2040 WRITELN; 

2050 WRITELN ('Hit any key to continue'); ‘ 

2060 READLN; 

2070 PAGE; 

2080 WRITELN ('program are valid for both the'); 

2090 WRITELN ('ZX Spectrum and the Timex');, 

2100 WRITELN ('Sinclair 2068'); 

2110 WRITELN; 

2120 WRITELN ('The two disk drive procedures'); 

2130 WRITELN (’are found in the procedures DIN,'); 

2140 WRITELN ('and DOUT. A third procedure,'); 

2150 WRITELN (’called GETNAME, supplies the’); 

2160 WRITELN ('above procedures with a name for’); 

2170 WRITELN ('storing or retrieving from the'); 

2180 WRITELN ('disk. All these procedures work’); 

2190 WRITELN ('in conjunction with the resident'); 

2200 WRITELN ('procedures ADDRO, SIZEO, and'); 

2210 WRITELN ('POKEO'); 

2220 WRITELN; 

2230 WRITELN ('The authors hope that these’); 

2240 WRITELN ('procedures will stimulate Pascal'); 

2250 WRITELN ('programing for the ZX Spectrum’); 

2260 WRITELN; 

2270 WRITELN ('Hit any key to continue’); 

2280 READLN; 

2290 PAGE; 

2300 WRITELN ('and the Timex Sinclair 2068 and’); 

2310 WRITELN ('encourage other Sinclairests to'); 

2320 WRITELN ('write disk routines for the'); 

2330 WRITELN (’other languages mentioned'); 

2340' WRITELN ('above.'); 


1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 


PROCEDURE READDIRECTORY; 

BEGIN 
PAGE; 

POKE (CAPSLOCK, OFF); 

FOR I := 1 TO LENGTH DO 
BEGIN 

WITH DIRECTORY Cl] DO 
BEGIN 

WRITELN (NAME,' ', 
WRITELN; 

END 

END; 

WRITELN ('END OF DIRECTORY'); 

WRITELN ('HIT ANY KEY TO CONTINUE'); 
READLN 
END; 


NUMBER); 


PROCEDURE SONGANDDANCE; 
BEGIN 


PAGE; 

WRITELN 

WRITELN 

WRITELN 


('Larken Disk Access Routine'); 
('for'); 

('HiSoft(TM) Pascal'); 

WRITELN (’for the'); 

WRITELN ('ZX Spectrum'); 

('and the'); 

('Timex Sinclair 2068'); 


WRITELN 
WRITELN 
WRITELN; 

WRITELN ('by'); 

WRITELN (’David Solly'); 
WRITELN ('and'); 

WRITELN (’Larry Kenny'); 
WRITELN; 


WRITELN 

READLN; 

PAGE; 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 

WRITELN 


('Hit any key to continue'); 


('Many ZX Spectrum and TS 2068'); 
('programers have long wanted to’); 
('do serious programing in other’); 
('languages than the resident'); 
(’Sinclair Basic. Although such’); 
('languages as Forth, Logo, C,'); 
(’Prolog and Pascal have long been’); 
('available to Sinclair users one'); 
(’of the main drawbacks for'); 



NEU for sour 2063!! 


COPY A SCREEN* IN COLOR? YES ? 
Now a T/S 2068 artist can copy to paper his/her favorite 
screens ...... IN FULL COLOR!! All eight Tiaex paper & ink 

colors are accurately reproduced for a full 24 line X 32 
coluan graphics screen duap. The user friendly software 
provides for two copy sizes in color or in black l white. 

HARDWARE REQUIREMENTS? - An OKIHATE 
20 printer w/ COMMODORE PLUS ’n PRINT CARTRIDGE are inter¬ 
faced to a 2068 via a siaple COMMODORE serial port eau- 
lator circuit; (The saae circuit also interfaces a 2068 to 
a COMMODORE 1520 4-color printer^plotter.) The I/F hard¬ 
ware sells for $14.95 (bareboard only), $20.95 (cosplete 
kit), and $30.95 (assetbled It tested) - all postpaid. 

OTHER SOFTWARE? - The OKIHATE 20 is a sany 
featured 80/136 col. printer, able to print in draft, NLQ, 
italics, reverse (white on black), underline, super/sub¬ 
scripts, six char, sizes, and do 7 or 24 pin color or b/w 
graphics. A "patch kit* software progras allows CHScript 
versions 5/5.2 to print to the OKIHATE 20. A hi-aes driver 
code block is also available for LPRINT/LLISTing to the 
OKIHATE 20 froa BASIC. All software is priced at $8.95 
postpaid each and coaes with coaplete user notes. 


Send 


LSASE for additional inforaation and order fora 
♦ ♦♦ John McMichael ♦♦♦ 
♦♦♦ 1710 Palmer Drive ♦♦♦ 

♦♦♦ Laramie, WY 82070 ♦♦♦ 


to: 






2350 WRITELN; 

2360 WRITELN ('David Solly'); 

2370 WRITELN ('Larry Kenny'); 

2380 WRITELN; 

2390 WRITELN; 

2400 WRITELN ('Hit any key to continue'); 

2410 READLN 

2420 END; 

2430 

2440 

2450 BEGIN {BODY OF THE PROGRAM) 

2460 REPEAT 
2470 PAGE; 

2480 POKE (CAPSLOCK, ON); 

2490 FINISHED FALSE; 

2500 WRITELN; 

2510 WRITELN; 

2520 WRITELN ('MENU'); 

2530 WRITELN; 

2540 WRITELN (’SELECT ONE OF THE FOLLOWING'); 

2550 WRITELN ('OPTIONS '); 

2560 WRITELN; 


2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 


WRITELN; 
WRITELN (’1) 
WRITELN ('2) 
WRITELN ('3) 
WRITELN ('4) 
WRITELN (’5) 
WRITELN ('6) 
WRITELN; 
WRITELN; 
WRITE ('MAKE 
READLN; 

READ (ANS); 


READ THE INTRODUCTION’); 
CREATE DATA’); 

READ DATA'); 

SAVE DATE TO DISK'); 

LOAD DATA FROM DISK’); 
EXIT THE PROGAM’); 


YOUR SELECTION '); 


CASE ANS OF 
'1' : SONGANDDANCE; 

'2' : FILLDIRECTORY; 

'3' : READDIRECTORY; 
'4' : DISKSAVE; 

'5' : DISKLOAD; 

'6' : FINISHED :» TRUE 
END; 


2800 


2810 UNTIL FINISHED = TRUE; 

2820 * r 

2830 

2840 (FINALE) 

2850 PAGE; 

2860 WRITELN; 

2870 WRITELN; 

2880 WRITELN (’END OF DEMONSTRATION'); 

2890 WRITELN; 

2900 WRITELN 

2910 END. 

The Pascal disk handler described in this article and 
program works only within a compiled Pascal program and, 
regretful1 , can not be used to save Pascal source code. The 

procedures DIN, DOUT, and GETNAME are completely modular. 
They may be copied directly from this program into the 
appropriate section of any Pascal program you care to write 
which requires access to LKDOS. The procedures DISKSAVE and 
DISKLOAD may also be used but remember to change the name 
within the parentheses of ADDR() and SIZEO to the name of 
the variable within your program that you wish to save or 
load. The ”.C” extension required by data file saves within 
Basic when using LKDOS is not required by the Pascal disk 
handler, however, it may be good practice to use the 
extension ".P” to indicate that the data that has been saved 
is intended for a Pascal program rather than a Basic 
program. All the LKDOS error codes are operational and will 
stop your program without crashing providing that the 
compiled code is accessed through a Basic loader program, 
that a PRINT USR is used rather than RANDOMIZE USR and that 
there is at least one line of Basic after the USR call. 
Example: 

10 REM TYPICAL COMPILED PASCAL PROGRAM LOADER 
20 BORDER 0: PAPER 0: INK 7: CLS 
30 PRINT #4: LOAD "MYPROG.C1" CODE 27000 
40 CLS: PRINT USR 27000 
50 STOP 

9000 REM SAVE LOADER TO DISK 

9010 PRINT #4: SAVE "LOADER. Bl" LINE 1 

On behalf of Larry and myself I hope that this Pascal disk 
handler will prove to be useful to all who wish to do 
serious programming in Pascal which requires disk access. 



MACHINE CODE TRACK 

by Mike Finn 


READER 


In order to write more advanced programs for the 
Zebra FDD disk drive system, we need to know more 
about it’s operating system. To write disk utilities 
we need to be able to see exactly what is on disk 
without a basic program using basic TOS (Timex Oper¬ 
ating System) commands as intermediary. Since TOS is 
stored on the first four tracks of the disk and 
downloaded to controller RAM, we need disk reading 
and writing utilities to make any desired changes to 
TOS, or to develop utilities such as a program which 
would recover disk data after accidental erasure. 

The following machine code program will read all 
the sectors of any given track on the disk and store 
the 4K bytes of disk track data in Home RAM at 7000 
hex for access by a monitor disassembler machine 
code program. The track reader code resides at E000 
to E050 hex. I have used both Zeus Monitor and HOT-Z 
AROS with it. In fact, I have used HOT-Z AROS in all 
3 banks: home, dock, and exrom with 32K non-volatile 
memory board in the dock cartridge slot with this 
track reader program. The code can be readily modi¬ 
fied to be used at some other location if you are 
using some other disassembler. 


E000 

E001 

E002 

00 

00 

210070 

LD HL, 7000 

E005 

3A01E0 

LD A,(E001) 

E008 

57 

LD D,A 

E009 

3A00E0 

LD A,(E000) 

E00C 

4F 

LD C, A 

E00D 

FDE5 

PUSH IY 

E00F 

FD210000 

LD IY, 0000 

E013 

CD0800 

CALL 0008 

E016 

FDE1 

POP IY 

E018 

1E00 

LD E,00 

E01A 

3E1B 

LD A,IB 


E01C 

320021 

LD (2100) ,A 

E01F 

C5 

PUSH BC 

E020 

D5 

PUSH DE 

E021 

E5 

PUSH HL 

E022 

CD0806 

CALL 0608 

E025 

CD2606 

# 

CALL 0626 

E028 

3A0221 

LD A,(2102) 


Storage space for drive # 
Storage space for track # 
Beginning of home ram 
storage for disk track 

contents 

# 

D contains track # 

C contains drive unit # 
Page in ZEBRA interface 

rom/ram 


E will hold sector # 

Disk command to read sector 
contained in E of track in 
D of drive in C 
Command buffer 
Save request parameters 

Save current home ram 
download address 
Calls command sending 
routine 

This routine controls for 

reply from disk 

This system variable holds 





E001. I use the GOTO command to rerun the code at 
E002. For HOT-Z, the normal read mode can disassemble 
code and the display switch (SS-G) will read data. I 
can enter the edit mode (SS-A) to input new parameter 
values and use the run command (CSS-RUN) to rerun the 
track reader code. HOT-Z has an advantage over ZEUS 
for reading files containing basic programs. ZEUS 
won't display the characters corresponding to codes 
over 127. 

For those whose monitors do not include an 
assembler, the following loader may be used to enter 
the code. 


E02B 

A7 

AND A 

E02C 

0600 

LD B,00 

E02E 

4F 

LD C, A 

E02F 

201C 

JR NZ,E04D 

E031 

El 

POP HL 

E032 

110020 

LD DE,2000 

E035 

EB 

EX DE,HL 

E036 

010001 

LD BC,0100 

E039 

EDB0 

LDIR 

E03B 

EB 

EX DE,HL 

E03C 

D1 

POP DE 

E03D 

7B 

LD A,E 

E03E 

C607 

ADD A,07 

E040 

E60F 

AND OF 

E042 

5F 

LD E,A 

E043 

Cl 

POP BC 

E044 

20D4 

JR NZ,E01A 

E046 

010000 

LD BC,0000 

E049 

CD0306 

CALL 0603 

E04C 

C9 

RET 


E04D 

El 

POP HL 

E04E 

El 

POP HL 

E04F 

El 

POP HL 

E050 

18F7 

JR E04 


TOS error code 
Test for error. 

If an error occurred return 

to basic with error 
reason in BC 

Restore home ram address and 
download from ZEBRA ram 
buffer to home 


Restore sector/track 
paramet er 

Pick up next data sector of 
track 


Restore drive parameter 
If all 16 sectors not read 
then loop back for next one 
If all 16 read set error 
report code to 0 
Page out ZEBRA rom/ram 
Return to basic to call up 
either monitor or error 
message 

Clear stack and return to 
basic 


Relative addressing is used as much as possible 
within the machine code. The only absolute address 
calls are to a jump table in Zebra ROM, as described 
in Appendix F of the user manual, so all versions of 
the FDD should run this code. The only lines that 
need to be changed to relocate this code for use with 
another monitor/disassembler are lines 3, 4, and 6. 
You will need to change the absolute addresses used 
in those lines to match your memory layout. 

A basic program is used to load the code from 
disk, poke the track and driver parameters, load your 
favorite monitor, run the code, and enter the monitor 
program to view the disk data. In the basic program 
you must replace lines 30 to 38 and 140 to 148 with 
your own monitor/disassembler loads and calls. I use 
one of the following depending on my system 
configuration. 

ZEUS monitor: 


HOT-Z AROS: 

30 

140 

Home : 

30 

140 

Dock: 

140 

Exrom: 

140 


LOAD * "ZEUSMON.COD"CODE 
IF BC-0 THEN PRINT USR 62137 

LOAD * "HOT-Z2,5.COD"CODE 
IF BC-0 THEN RAND USR 32776 

IF BC-0 THEN OUT 255,0: OUT 244, 
240: RAND USR 32776 

IF BC-0 THEN OUT 255,128: OUT 24 
4,240: RAND USR 32776 


Mostly I keep HOT-Z in Exrom. There are several 
"bugs" in the FDD's initiation routines when dock 
bank cartridges are present. I avoid these conflicts 
by keeping HOT-Z AROS in exrom from 8000 to DFFF hex. 

Once you enter the monitor you shouldn't need to 
return to basic. Parameters at E000 and E001 hex can 
be poked using utilities in the monitor program and 
both ZEUS and HOT-Z have code execution routines. For 
ZEUS, I use the DISASSEMBLE command to read code and 
the EDIT command to read data. The EDIT command is 
also used to change parameter values at E000 and 


1 REM ZEBRA Disk Drive 

Track Reader Utility 
by Mike Finn 

2 REM This utility requires a 

monitor/disassembler 
machine code program 

3 REM Program allows for 

monitor code to occupy 
addresses from 8000 
to DFFF Hex or from 
E051 to FF57 hex 

4 REM E000 to E050 is reserv¬ 

ed for track reader m/c 

5 REM 7000 to 7FFF is reserv¬ 

ed for disk data 
10 CLEAR 28671 
20 LOAD *"TRACKRDR.COD"CODE 
30 REM *********************** 
32 REM 

34 REM Replace this REM with 

a LOAD * instruction to 
load your favorite mon¬ 
itor disassembler from 
Disk 

36 REM 

38 REM *********************** 
40 PRINT 'TAB 5;"DISK REVIEWIN 
G UTILITY" 

50 INPUT "Source Drive (A TO D 
) " ; D$ 

60 LET D=CODE D$ 

70 IF D>=97 AND D<=100 THEN L 
ET D=D-32 


80 

HEN 

90 

100 

110 

100 

120 

130 

140 

142 

144 


146 

148 

150 

see 


LET D=D-65: IF D<0 OR D>3 T 
GO TO 50 
POKE 57344,D 

INPUT "Track (0 to 39) ";T 
IF T<0 OR T>39 THEN GO TO 


POKE 57345,T 

LET BC=USR 57346 

REM *********************** 

REM 


REM 


Replace this REM with 
IF BC=0 THEN RAND USR 
( monitor address ) 


REM 

REM *********************** 
PRINT "ERROR ";BC;"!, Please 

us er manual." * ( 


t 


10 REM Machine code loader 

15 RESTORE 

20 FOR 1= 57344 TO 57425 
25 READ A: POKE I,A: NEXT I 
. 30 DATA 000,000,033,000,112,05 
8,001,224,087,058,000,224,079 
35 DATA 253,229,253,033,000,00 
0,205,008,000,253,225,030,000 
40 DATA 062,027,050,000,033,19 
7,213,229,205,008,006,205,038 
45 DATA 006,058,002,033,167,00 
6,000,079,032,028,225,017,000 
50 DATA 032,235,001,000,001,23 
7,176,235,209,123,198,007,230 
55 DATA 015,095,193,032,212,00 
1,000,000,205,003,006,201,225 
60 DATA 225,225,024,247 
















































































"S" AND "Q" KEYS WITH "CAT*" COMMAND 


by Mike Finn 


After reading Ronald Havlen's FDD Express (Oct. 
'07) newsletter about the problem with stopping the 
scrolling on the CAT* command with keys "S" and "Q", 
I began to experiment and I soon discovered that 
these keys will work occasionally. Here is a small 
program which shows that an even larger problem 
exists. 

First, make sure you have a disk with a large 
enough directory to require screen scrolling. One 
fast way to do this is to run the following program: 

10 FOR I - 1 TO 40 
20 LET A$ - STR$ I 
30 DIM* A$ 

40 NEXT I 


from the data buffer before it has to return to the 
original calling routine. If a directory printout 
contains less than 257 bytes, the "S" key will not 
stop it in the middle of a transfer since it is only 
tested prior to the data printout. 

Can a long directory be contained in just 256 
bytes? If you look at the line by line printout of 
the previous sample directory, you will notice that 
it is mostly empty spaces. The TAB function can 
easily generate all those spaces in just a few bytes 
of machine code, so pressing "S" may not necessarily 
stop even a large directory from scrolling. 

Zebra ROM subroutines called by the "S" and "Q" 
key routine: 


Now delete that program and enter the following: 

10 LET I - 0 

20 CAT* 

30 LET I - I + 1 

40 GOTO 20 

Run this program and while it is running, press 
and hold the "S" key. Be patient, as this may take a 
minute or so. Eventually, the scrolling will freeze 
and will remain this way until the "Q" key is 
pressed. Press the "Q" key and the screen will begin 
scrolling again. Immediately press CAPS SHIFT and 
BREAK. Enter as a direct command PRINT I. The first 
time I tried this it took 33 repetitions of the loop 
from lines 20 to 40 before the scrolling stopped. 
Other times it took as few as four loops. 

This shows that the "S" and "Q" keys do work 
sometimes...the problem is why don't they work all of 
the time. 

I've also noticed another problem which may be 
similar to the systems non-response to the "S" key. 
Let's clean up our disk's directory with the 
following program. 

10 FOR I - 1 to 40 

20 LET A$ - STR$ I 

30 ERASE A$ 

40 NEXT I 

When you run this program, TOS (Timex Operating 
System) will ask you to confirm that you want to 
erase each directory entry. Answer "Y" each time and 
take notice of how long a wait there is between when 
you press "Y" and when TOS recognizes that you 
replied. The first six times I answered "Y", TOS 
recognized my input immediately, but the following 
two times, there was noticeable lag. on one occasion, 

I tapped the "Y" key several times before the system 
finally responded. I have not had this problem any 
other time, so I assume the problem is not a 
defective keyboard. (I would like to know if these 
things I've written about are peculiar only to my 
setup or if they are universal among all Zebra FDD 
owners.) 

I have been working on a disassembly of the 
Zebra interface ROM. I believe the I've identified 
the subroutine that deals with the use of the "Q” and 
"S". I am still investigating this routine and have 
nothing final to report, but on my first glance, I 
see no reason why it shouldn't work consistently. 

My initial review shows that when the Zebra in¬ 
terface ROM sets up a TOS command to the disk 
controller, it then controls a response using a sub¬ 
routine which the Zebra Disk Drive Technical Manual 
(page 28) calls RESPOSTA. This routine lies between 
0688 hex and 06DB. If TOS wants a write out of text 
in the data buffer (2000 to 20FF hex) or from the 
error message section of the command buffer (210D to 
212D), the routine at 03EB to 0423 is called. It is 
this routine which contains the "S" and "Q" key 
tests. One noteworthy point about this routine is 
that it only tests the "S" key at the beginning of 
the screen printout of text. It can print 256 bytes 


000A FDCB01AE RES 5,(IY+01) RESET SYSTEM VARIABLE FLAG WHICH 

TRACKS KEYHITS 

000E FDCB01DE SET 3,(IY+01) SET CURSOR MODE L 

0012 CD3003 CALL 0330 CALL KEYBOARD SCANNER IN 

0015 B002 DEFB 020B HOME ROM 

0017 AF XOR A CLEAR FLAG REGISTER 

0018 FDCB016E BIT 5,(IY+01) TEST WHETHER KEYHIT FOUND 

001C C8 RET Z IF NOT, RETURN TO CALLING ROUTINE 

001D 3A085C LD A,(5C08) SYSTEM VARIABLE - LAST KEY 

0020 FE61 CP 61 TEST FOR UPPER CASE 

0022 D8 RET C RETURN IF UPPER CASE 

0023 E6DF AND DF IF LOWER CASE, CONVERT TO 

0025 C9 RET UPPER CASE AND RETURN 

0026 3E0D LD A,0D CARRIAGE RETURN 

0028 CD3003 CALL 0330 CALL RST 10 IN HOME ROM 

002B 1000 DEFB 0010 TO TRANSMIT CARRIAGE RETURN 

002D C9 RET 



Mi 


I 


MISS 




FAIR? 


/ 


-——r to Know tnat you too cai 
9ft in on thf specials that were 
iffered! We want to send a list of 
our special ‘AFTER THE FAIR' sale 
items so that you can net in on 


It so * you'll 
know that you 


9et in on 
ottered! We 


be 9tad 
too can 


the 


items so that you can 9et in on 

the savings! All you do is send a 

l*9al sized SASE and we' 1,1 send it 
out to you with all due haste! 

AND...It you would like to order a 

souvenier packet ot specials and a 

pro9ram from the show, just send a 

check or MO for $3 and we'll send 

it out! (Packet includes specials 

from most attending vendors.) 

For RM6's BIB 70+ Paoe 


+ page 


C d t 


log . 


send $ 3 , 


refunded first order. 

NG ENTERPRISES 

111? 1/2 7TH STREET 
OREGON CITY, OREGON 97045 

503/455-7484 « NOQN-IO TUE-SAT 



printout routine: 


03EB 

E5 

PUSH HL 

w 

SAVE HL, ADDRESS OF TEXT TO BE 
PRINTED OUT 

03EC 

3E02 

LD A,02 

OPEN CHANNEL # 2; 0330 IS THE 

03EE 

CD3003 

CALL 0330 

V CBAS ROUTINE USED TO CALL HOME 

03F1 

3012 

DEFB 1230 

ROM ROUTINES 

03F3 

3EFF 

LD A,FF 

POKE SYSTEM VARIABLE WITH FF FOR 

03F5 

328C5C 

LD (5C8C) , A 

CONTINUOUS SCROLL OF SCREEN 

03F8 

CD0A00 

CALL 000A 

KEYBOARD SCANNER ROUTINE 

03FB 

FE53 

CP 53 

IS IT THE "S" KEY? 

03FD 

2007 

JR NZ,0406 

IF NOT,CONTINUE WITH PRINTOUT 

03FF 

CD0A00 

CALL 000A 

IF IT IS "S", KEEP SCANNING 

04 02 

FE51 

CP 51 

IS IT THE "Q" KEY? 

0404 

20F9 

JR NZ,03FF 

IF NOT, THEN KEEP SCANNING 
KEYBOARD UNTIL "Q" IS PRESSED 

0406 

CD2600 

CALL 0026 

THIS DOES HOME ROM RST 10 TO 
TRANSMIT A CARRIAGE RETURN 

0409 

El 

POP HL 

RESTORE POINTER TO BUFFER BYTES 

04 0A 

E5 

PUSH HL 


040B 

7C 

LD A, H 

THIS TESTS WHETHER HL POINTS TO 
COMMAND BUFFER 210D HEX OR TO 
DATA BUFFER 2000 HEX 

040C 

IF 

RRA 

CARRY WILL BE SET FOR COMMAND 
BUFFER, AND RESET FOR DATA 

BUFFER READOUTS 

040D 

0600 

LD B,00 

THIS SETS UP A PRINTOUT OF 

UP TO 32 BYTES, THE MAXIMUM 

SIZE OF THE MESSAGE AREA IN THE 
COMMAND BUFFER 

04 OF 

3802 

JR C,0413 


0411 

0621 

LD B,21 

THIS SETS UP A PRINTOUT OF UP TO 
256 BYTES, THE MAXIMUM LENGTH OF 
THE DATA BUFFER, 2000 TO 2OFF 

0413 

El 

POP HL 

RESTORE BUFFER TEXT ADDRESS 

0414 

04 

INC B 

TESTS THAT WE DON'T EXCEED THE 

0415 

78 

LD A,B 

MAXIMUM SIZE OF BUFFER 

0416 

FE21 

CP 21 



0418 

C8 

0419 

7E 

041A 

B7 

041B 

C8 

041C 

23 

041D 

E5 

041E 

CD3003 

0421 

1000 

0423 

18EE 


RET Z 
LD A,(HL) 

.OR A 


RET Z 
INC HL 
PUSH HL 

CALL 0330 
DEFB 0010 
JR 0413 


IF SO, RETURN TO CALLING ROUTINE 
PICK UP TEXT BYTE POINTED TO BY 
HL 

TESTS TO SEE IF WE REACHED END 
OF DATA MARKER, 00 HEX 
IF SO, RETURN TO CALLING ROUTINE 
IF NOT END OF DATA OR END OF 

BUFFER THEN GET NEXT ADDRESS TO 
BE PRINTED OUT AND SAVE IT 
USE CBAS TO RUN HOME ROM RST 10 
FOR TEXT BYTE IN THE A REGISTER 
REPEAT THE END OF DATA AND END OF 
BUFFER TESTS 


Note that the keyboard is only tested once for 
the "S" key, then up to 265 bytes are printed out. 
When this is completed we return to REPOSTA which 
sends a DONE message to TOS. If TOS has anything else 
to output to the screen, it repeats the request for 
data printout and up to 256 bytes can again be 
printed. So we only get the chance to stop the screen 
scrolling every 256 bytes. 

When you try the program, you will see the 
scrolling freeze occasionally and will have to press 
"Q" to restart it. This shows that the routine does 
work. I see no software bugs to prevent it from 
working all the time (i.e., every 256 bytes). I don’t 


know enough about the hardware mechanisms involved in 
paging in and out the Zebra FDD shadow ROM, but I 
suspect a timing problem or a keyboard debouncing/ 
reading problem more than a software problem. Does 
anyone have any suggestions for further study so we 
can nail down the source of this problem? 



by Dick Wagner 


The final OLIGER SAFE DOS (Disk Operating 
System) on EPROM is now available as version 2.52. 
The system is more than just a disk operating system. 
The additional utilities that John Oliger provides 
are interesting and useful. 

Here are some of the latest features: 

1. A fast FOR—NEXT loop routine 

2. ERASE /"Filename" command 

3. improved cataloging (CAT command) 

4. RESTORE /"New disk name" command 

5. MERGE /"Name" command 

Along with these, there is a well-coordinated 
version of the MSCRIPT word processor available to 
use with SAFE DOS, and it is now possible to operate 
two disk drive operating systems at will, without 
changing disks! (i.e., OLIGER and LARKEN) 

The fast FOR—NEXT loop utility provides a con¬ 
stant speed whenever it is used in a program, giving 
9 to 50 times faster operation. Only one such loop is 
permitted, but it may be mixed with regular BASIC 
loops. It is simple to implement. The variable must 
be assigned at the beginning of a program, such as: 

5 LET /k-1 
200 FOR /I TO 100 
255 NEXT 

The ERASE /"Filename" command permits erasing 
any disk file, which is great for cleaning up a disk. 
All consecutive files following the erased file are 
moved up and the catalog is corrected without blank 
lines. 

The new CAT extended command produces an 
improved screen display with an added column which 
shows the starting address for code and data files. 

The extended command FORMAT /"name" has been in 
use from the beginning, as it is always necessary to 
give the disk a name (even if the name is only " "). 


Now the user can change disk names at will with the 
RESTORE /"New disk name" command. This is handy for 
formatting disks in advance. 

With the new MERGE /"name" command, Oliger makes 
it possible to append a program to an existing 
program, without seriously polluting the current 
program! 

Printing a hard copy of the disk catalog is a 
snap. In the immediate mode, type: LET /P-0 and OPEN 
#2,"p". Now type CAT, and the display is shunted to 
the printer in place of the screen. 

The OLIGER SAFE disk system and hardware has the 
unique ability to be compatible with the LARKEN DOS 
(Disk Operating System), which is supplied in cart¬ 
ridge form, and is available from LARKEN (and RMG 
Enterprises). Now the user can operate both systems 
interchangeably at will (with the LARKEN disk in 

drive 0 and the OLIGER disk in drive 1...for 
example). The extended commands can be sent to either 
disk, and even some OLIGER commands can be used in 
LARKEN programs, such as the fast FOR—NEXT loop 
routine. As I prefer using the OLIGER DOS, I can 
purchase programs available only for the LARKEN DOS, 
make the appropriate program changes, and save a 
version on the OLIGER. 

My personal favorite (and much used) disk oper¬ 
ation is in conjunction with MSCRIPT version 5.3. I 
make a MSCRIPT utility save on each disk I use with 
this program. A special FILE 0 program is used with 
LOAD to display the catalog with a moveable cursor. 
Select MSCRIPT, press ENTER and there it is. Issue 
the CAT command in the MSCRIPT menu and the catalog 
is displayed. Select a program to LOAD into MSCRIPT 
as text, and there is the complete text, including a 
list of printer commands used with that particular 
text. A quick delete of the text leaves the printer 
codes to use as reference. 





For convenience, I also have the printer codes 
(52 possible) stored on the same disk as text. It can 
be loaded at any time, referred to, codes added to 
the list already in the reference lines, and then be 
deleted. The alternative is a printed listt. 

Many large printers provide graphic capabilities 
where every print pixel is defined. John Oliger uses 


the OUT 127,n direct port approach for this type of 
programming. I prefer to use the LPRINT method 
commonly used in many computer programs. The LET /P-0 
command will not properly send printer codes greater 
than 127. The word from John, is to make 2 pokes: 
23300,60 and 23301,3 to overcome this problem, so 
that LPRINT CHR$ n will work properly. 



TAPE 



TRANSFER 


UTILITY 


The following utility program was supplied to 
TIME DESIGNS by Dave Maccarone, a former authorized 
distributor of the Rotronics Wafadrive. Rotronics is 
not longer in business. It should be noted that the 
following "Tape Transfer Utility" is for the Spectrum 
computer or the Spectrum-Emulated Timex Sinclair 
2068. 


When transferring software from cassette to 
wafer, some kind of transfer utility program is 
virtually indispensable. The program given here is 
written largely in BASIC and sets up its own machine 
code subroutines. The three facilities provided by 
the program are: 

1. READ HEADER: Essential for analysing the 
attributes of files on cassette. Displays the auto¬ 
run line number of BASIC programs, location and 
length of code files. It works by reading the program 
header which preceeds the file on tape. Beware of 
false headers! 

2. RECLAIM RAM: This option effectively de¬ 
initializes the Wafaderive Operating System and 
reclaims all RAM used. The BASIC program is pre¬ 
served . 

3. STOP: This can be used to load a BASIC 
program such that it is prevented from auto-running 
once loaded. It will thus cope with "anti—merge" 
programs. The auto-run line number is displayed on 
screen with the program name. The utility program 
itself is overwritten. 

The machine code subroutines used by the program 
are all relocateable and can be lifted for use in 
your own programs. Memory saving techniques have been 
used in the BASIC to assist when working in "con¬ 
fined spaces". The program can be further reduced in 
size if required by splitting it into three parts 
and/or by loading the machine code straight into the 
printer buffer as a separate file. 


10 PAPER UAL "5": INK NOT PI 5 BORDER UAL "5": GO SUB UAL "le3" 
20 CLS : PRINT "Enter number:""" 

30 PRINT " 1 READ HEADER"'" - loads header from cassette 
Ji displays file attributes." 

40 PRINT "" 2 RECLAIM RAM"'" - de- i n 11 I a 1 I ses NOS 8, 
reclaims RAM." 

50 PRINT "" 3 STOP"'" - loads BASIC program from casts 

tte f preventing auto- run." 

60 LET at=INKEYt: IF a*<"l" OR at>"3" THEN GO TO 60 
70 CLS : GO TO UAL "100"«UAL a* 

100 REM HEADER READ 

110 PRINT " HEADER READ """Play tape...": RANDOMIZE USR UAL "2 
3320": CLS : LET a=»UAL "23296" 

120 LET t=PEEK a: LET a-a+SGN PI 

130 PRINT "TYPE:","Program" AND (NOT t)j"Number array" AND (t»S 
3N PI)j"String array" AND (t*UAL "2")j"Bytes" AND (t*INT PI) 

140 PRINT '"NAME: " , : FOR n*SGN PI TO UAL "10": PRINT CHRt (PEEK 
a)): LET a-a+SGN PI: NEXT n 

150 PRINT ''"LENGTH:",PEEK a+UAL "256*PEEK (a+1)": LET a«a+UAL 

•# 2 m 

160 LET b-PEEK a+UAL "256#PEEK (a+1)": IF NOT t THEN PRINT '"AU 
r0-RUN:" f : IF B(UAL "le4" THEN PRINT b 
170 IF t«INT PI THEN PRINT '"START:",b 

180 PRINT £N0T PI;"Press a key to return to menu": PAUSE NOT PI 
: GO TO UAL "20" 

200 REM RECLAIM 

210 PRINT " RECLAIM RAM " 

220 GO SUB UAL "2e3": CLEAR #: RANDOMIZE USR UAL "23340": GO TO 
UAL "20" 

300 REM STOP 

310 PRINT " STOP """WARNING! - this program is lost when selec 
ted.": GO SUB UAL "2e3" 

320 PRINT "The number shown on screen is the line from which 
the program would normally auto-run."''"Play tapejUSR UAL 
"23369": STOP 

1000 RESTORE 

1010 DATA "221","33","0","91","221 ", "229" ," 17" ," 17" , "0" , "175", "5 
5","205","86","5","221","225","48","242","251","201" 

1020 DATA "219","12","205","46","10","205","159","0","42","99"," 

?2","34","101","92","42","146","92","34","104","92","33","182"," 

?2","1","244","8","195","232","25" 

1030 DATA "1","34","0","247","213","221","225","221","54","1","2 
55", "221","54","15","128","62","1","50","116","92","205","58","7 
","62","255","50","68","92","237","75","66r,"92","205","27","26" 
,"207","255" 

1040 FOR a*UAL "23320" TO UAL "23405": READ at: POKE a,UAL at: N 

EXT a: RETURN 

2000 REM CONTINUE? 

2010 PRINT ''"Press Y to proceed or any other key to return to m 
anu" 

2020 PAUSE NOT PI: LET a=PEEK UAL "23560": IF a(>C0DE "Y" AND a< 
>C0DE "y" THEN RUN 
2030 CLS : RETURN 


******************************************************************************** 
F” U Z Z L_ EE OR THE MONTH 

CEDRIC R. BASTIAANS 


The GIUENS o-f this puzzle are: 

A. There are 5 children, all more than 1 year old and younger than 25. 

B. Their combined ages total 40. 

C. The product'of the boys’ ages is 39 times the product of the girls’ 
ages. 

D. Next year, the product of the boys’ ages is an even number of times the 
product of the girls’ ages. 

CAN YOU COME UP WITH A PROGRAM FOR OUR COMPUTERS TO FIGURE OUT THE AGES OF THE 
FIUE CHILDREN??? 






Note: This is NOT a real ad. Please do not send real money. Thanks 
William Scott for contributing this humorous little ditty from Australia 
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Exclusive advance 

# 

purchase ! 

SINCLAIR ZKBO 

We've done it again! Be the first in your street to own 
Sinclair's new baby, the incredible 2X89! Just look at 
these features: 


Buy yours NOW! 


DON'T WAIT TILL NEXT MONTH 

FOR THE VZ200 

Beal Ihe delay - buy your VZ200 Dick Smith color computer 
now from us over the counter / How do we do it? Simple* As s 
we heard ol the VZ we bribed security guards at the Hong Kor 
factory to shoot machines out the side doorlf 


Powerful. Cray 1 compatible processor 
14 Megabytes of RAM on one chip!! 
Advanced touch-sensitive multifunction 
key has 27 functions!!! 

Twin 10 Mbyte winchester disks — new 
exclusive to ZX89!!!! 

Plugs into your own TV. run:; 'or a year 
(not supplied)*!!!! 

Auto repeat function on exclamation m 


Standard Machine $853.02 


All this for just $35.00 inc sales tax. post, packing, ail connecting 
cables, and all the software you can get into your house* (Send 
cash only — no cheques, credit cards, POs. Lan Choo Labels, etc 
accepted. Strictly mail order only.) 


Microbee Pacemaker 


That's right! Now you can control your own heartbeat with 
this powerful software package. All connectors plus scalpel 
blades supplied — install it yourself with our easy-to-follow 
instructions. Lifetime guarantee. Supplied on cassette for 
just $15.95 inc p&p (no refunds). Ask about our very own 
life insurance scheme exclusive to Microbee Pacemaker own 


Games software 


Dam: Build your own Franklin below Gordon obstruction, tend off 
the Greeny attackers by puncturing their rubber dinghy. With 
full colour, sound, fast-moving graphics. $20.00 


Orphan attack: Defend the food-laden table from invading 
hordes of hungry orphans. Can you eat it all before they do? $16.00 


Hitch-hiker: You're driving along a dark road. Suddenly a hitch¬ 
hiker appears in the gloom. Can you run him over before he 
jumps clear? $520.00 


The Stones of HI'Fydgra: Ultimate Adventure' type game, lasts 
for weeks, no-body has yet managed to win — will you be the first? 
Explore the caverns of Ygnbs. the Magician of Ggon; fight Typo 
the mystic Gzknw and his followers, the Pfinds of Tzdi. Find the 
Treasure of Pjjjj and you've won* $2.00 me free dictionary. 

Zap the Zrts: Can you stop those pesky /its from spreading? 

The faster you zap them, the faster they come back! Find the 
secret 'Clearas*!' button to win Full sound and colour $45 00 


de post, packing 
connecting cabli 


case, bribe, keyboard. 


UNUK 


Now you can have the power of this incredible Unix-like 
operating system on your ZX81! Just like Unix but "pruned" 
to fit into basic Ik '81! 

Don't be left out when your neighbours switch to Unix* Just 
$23,427.63 (on cassette only). 


Business software 


MoralStar: New addition to your word processing suite. Auto¬ 
matically searches your text for dirty words, expletives, double - 
entendres, etc. and replaces them with 'clean' text which even 
F Nile would approve. A 'must' for TV scriptwriters! 

$750.00 

TLO Toolkit: Trying to get to grips with The Last One? Our TLO 
Toolkit makes the job a cinch, gets TLO working, produces exactly 
the code you want. Definitely the last program you’ll need to 
buy (revised version coming in September). $540.00 

VIC-370: Give your VIC 20 the power of an IBM 370 with this 
super conversion program! You too can have mainframe computing 
power at your fingertips in the comfort and privacy of your own 
home. Requires 1.432 16k RAM packs. On cassette only $37 50 

innuendo: Not a game but an indispensable addition to your word 
processing system. Scans your text and inserts dirty words, exple¬ 
tives, double-entendres, etc. in place of 'clean' words. A 'must' 
for TV scriptwriters! $23.95 

'Bumpier' Bundle: All your favourite packages on one disk! Word¬ 
star, The Last One, dBase II, Visicalc. Unix, MBasic and seven 
versions of Pascal, all available for the first time on a single diskl 
$9.20 (discounts for bulk orders and educational institutions). 
(Manuals not available at time of going to press.) 

The Editor: Incredible new 'artificial intelligence' program replaces 
magazine editors with a computer. You too can produce your very 
own micro magazine in the comfort and privacy of your own 
home! As used bv J Pierce. L 8elle and several others. $2500 IQ 



PO BOX 835539A SYDNEY 

(02) 747 6311 
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the: solution or the puzzle or the month 


First, we”11 give the children some simple names, very simple like a, b, c, d 
and e. 

Then, we will assume that there are 3 girls and 2 boys. Maybe it’s the other way 
around, but we’ll see. 

Furthermore, the number 39 can only be composed of 1x39 or 3x13. What this means 
is that one of the boys simply HAS to be 13 years old, while another boy’s age 
HAS to be divisible by 3. We may thus write: 


a=13 and 

b*3t, where t-1,2,3....8 (maximum 8, because no one can be older than 24). 
The girls being called c,d and e, we may write (algebraical 1y): 

39cde = 13(3t) or cde = t ...( 1 ) 

Also: 

c+d+e+13+(3t) = 40 or c+d+e = 27-3t...(2) 


Since c,d and e are older than or as old as 2 years, we can write 
cde >= 8 .. 

and c+d+e >= 6 .. 


From equations (1) and (3) follows that: 

t >* 8 . 

On the other hand, from (2) and (4) we find: 
t <= 7.... 


(5) 


( 6 ) 


Equations (5) and (6) contradict and the truth is therefore that we have THREE 
boys and only TWO girls! 


CEDRIC R. BASTIAANS 


We may thusly write the following program: 

10 LET A=13 
20 FOR T=2 TO 7 
30 LET B=3*T 

40 REM EQUATION (8): LET SUM=T*(27-2IT) 

50 FOR D=2 TO 24 
60 FOR E=D TO 24 

70 REM EQUATION (7): LET C=D*E/T 
80 IF OINT(C) AND (D+T) * (E+T) =SUM THEN 
60SUB 1000 
90 NEXT E 

100 NEXT D 
110 NEXT T 
120 STOP 


1000 REM NEXT YEAR AND SOLUTION 
1010 LET X=(A+1)*(B+1)*(C+1) 

1020 LET Y=(D+l)t(E+l) 

1030 IF X/Y S INT(X/Y) THEN PRINT 
"THE BOYS ARE ";A;", M ;B; 

" AND";C;" YEARS, THE GIRLS 
ARE ";D; " AND "sE;"." 

1040 RETURN 


The situation for the 3 boys a, b and c and the 2 girls d and e is therefore a 
trifle different: 

39de = 13(3t)c or de = tc or c = de/t .(7) 

while, however, equation (2) still holds true! 


Substituting for c in (2) yields: 

3t+de/t+d+e = 27 
or 3t 2 +de+dt+et = 27t 
or t 2 +de+dt+et = 27t-2t 2 
or (d+t)(e+t) * t(27-2t) . 


With this program keyed into my TS2068, it displayed the solution in 11 seconds 
BOYS 13, 9 and 8; GIRLS 4 and 6. 


( 8 ) 



Nachbaur 
"Timex Clone") 


Dear Tim, ' 

I read with interest Bruce C. Taylor's article on the PC8300, 
since I have been quite deeply involved with this machine. I would 
like to clarify some o-f the points brought up by Mr. Taylor. 

* 

The 50/60 Hz, signal diode serves exactly the same -function !as pin 
22 o-f the ZX81/TS1G00 ULA. The video -frame rate has nothing to do 
with the power-] i ne -frequency; instead, it is determined by the 
that unique blend o-f hardware and software that constitutes the ZX 
display system. In the PC8300, the 50/60 Hz. diode goes to an 
input port. Each time through the display loop, the software 
checks whether this port is high or low, adjusting the MARGIN 
system variable accordingly. 

It should be noted that the machine (and the ZX81, for that 

matter) runs about 50X faster, overall, in SLOW mode, if it is in 

the 50 Hz. mode. This is because the system has.more time between 

frames to work on your program. My ROM improvement (more about 

that later) allows MARGIN to be changed by the user, and always 

defaults on power-up at 60 Hz. regardless of whether the diode is 
connected or not. 
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There is most certainly a clock component on the PC8300 board. It 
is exactly the same as on a ZX81 , a 6.5 mHz. ceramic element just 
to the left of the ULA, in front of the modulator. This behaves 
electrically just like a crystal 5 the on 1 y significant difference 
is that the frequency stability and precision is less than that of 
a crystal. For most jobs, however, the variance is negligible. 

There is also most certainly a Z 8 QA on the board. This is the 
large chip in the centre. Mr. Taylor may have been confused by the 
fact that some manufacturers of the Z80A give it their own part 
number. The designation 780C is particularly common. There is 

absolutely no difference between such chips and ZSOA's marked as 
such . 

Regarding place of origin, it does say “Made in Hong Kong.” 
However, the manual is written in the Chinese dialect of the 
mainland. Draw your own conclusions. 

There is nothing strange about the fact that the 1 REM location is 
793 bytes higher on the PC8300, than it is on the ZX81 family. 
There is also nothing mystical about memory allocation. The only 
difference is the location of the display file. On the ZX81, it 
rides above the BASIC program. It therefore moves about as BASIC 
lines are added and deleted. On the PC8300, however, the display 
file is always at a fixed location BELOW the program area. What do 
you get when you multiply 24 lines by 33 bytes per line and add 1 
for end-of-file marker? That's right, 793. 

The PCS300 will successfully load ZX81 programs that are entirely 
in BASIC. It does this by looking at the UERS variable, adjusting 
how it perceives the incoming data as required. However, because 
of the way the display file location was modified, it will NOT 
load any BASIC variables associated with the Sinclair program. So 
if your program is, for instance, a mailing-list, you can load the 
program but not your data. 

Worse, the different location of the first program line means that 
machine-code won't run unless it was written to be posit ion- 
independent, and you adjust all USR calls accordingly. Even worse, 
no ROM calls are allowed since the ROM routines were completely 
scrambled, presumably to help prevent copyright hassles. For all 
practical purposes, one can consider that it is completely 
incompatible with ZX81 machine-code. 

* 

• * ^ _ , . _ f# - # 

_ 

There are also some relatively minor, though potentially 
troublesome changes in the system variables. You have to be aware 
of these if you intend to write machine-code for this computer. 

It is not possible to use a straight Timex or Sinclair ROM with 
the PC8300. Rather, it isn't practical. The reason is that the 
hardware of the display system is sufficiently different to cause 
the display to be "wonky,” for lack of a better word. 

I have developed a Timex-compatible ROM which runs all known low- 
res Timex programs, including machine-code. The only programs that 
won't run, are high-res programs and SOME "banner" programs. 

The other hardware-dependent factor is the character set. These 
are NOT housed in the top 512 bytes of the ROM, as on the 
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Sinclair. Rather, they are contained within the custom chip, and 
are the reason that high—res won't work no matter what we do. 
There is no point, even, in trying to revector the I register; 
actually a blessing, since it is now available to the programmer. 
For instance, IM2 (interrupt mode 2) is theoretically usable with 
this machine. On the down side, some of the Sinclair punctuation 
<: ? and the pound sign) still remain game characters, and the 

grey graphics are right triangles and a "race car 11 . 

Otherwise, the PC8300 behaves just like a TS1000 with the new ROM. 
Even the keywords were reverted to their original key locations. 

Keywords are, o-f course, entered with a single key-stroke. 

# •> 

To make up -for the -few remaining shortcomings o-f my Timex- 
compatible ROM, it sports a -few added -features, some o-f which are 
not available either on the ZX81 or the stock PC8300. A new BEEP 
keyword turns beeping keys on or off. The REM command is now used 
to turn the blinking cursor on or off, in addition to its use as a 
REMark statement. A BASIC single-stepper ("debugger") is included. 

The machine can be set to make an audible noise when loading or 
saving a program. 

Hardware-wise, there is nothing "different" about the electrical 
characteristics of the edge-connector lines. The problem is that 
some of them are missing. That's right, the edge traces go 
absolutely nowhere. Most of these (WAIT*, BUSRQ*, BUSAK*, HALT*, 
NMI*, etc.) are not commonly used by external peripherals. At 
least one, however, is relatively vital; this is Ml*. If this line 
is brought out, the PC8300 will work with Timex/Sinclair— 
compatible 64K RAMpacks. Incidentally, no modification is needed 
to run machine-code in the 32-48K region. In this respect, it is 
1 ike the TS1500. 


Even without the Ml* or other lines connected, the '8300 works 
with most ordinary Timex peripherals, such as the 2050 modem, 16K 
RAM, 2040 printer, many "big-printer" interfaces, and so on. One 
notable exception would be the Oliger Oideo Upgrade, again because 
the ROM does not contain the character patterns. Other devices 
that would not work include anything with an EPROM that overlays 

the ROM (e.g. the Memotech parallel interface) , or contains ROM 
calls (e.g. the A&J Stringy-Fl oppy). 
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opinion, 


the 


PC8300 
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virtual 1y 


useless, unless its ROM is changed to make 
compatibility" at least 90X justifiable. 
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VOLT-METER 

THIS LITTLE CIRCUIT DETECTS 
ftflY VOLTAGE FROM 2 TO 125 
VOLTS, A.C. OR D.C. 


RED LED - 
GRD LED - 
DOTH LEDS 


DC, Probe positive 
DC, Probe ne^tive 
- Alternating 


%? Unp indicates higher 
voltages, starting about 15 
volts, A.C. or D.C. 


Uhp Na<f be ordered 
through an'# electronic 
supply bouse or catalog 


build into pen or 
snail plastic viaL 


BE CftftEFUL With fELECTfilClT 



bu G.FIeMing 

LVR H.S. 

NELSON. B.C. 


967 


INPUT: 

2-125 V. 

RC or DC 


X LED*S 


drawn by 
F. Nachbaur 


Regards, 
Fred Nachbaur 
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MANUAL 






CKTYPE 


1 


(M/C 


VERSION> 


by Earl V. Dunnington 


Now thanks to Earl, we have a sum-checker program for 
the TS1000/TS1500/ZX81, Just like the one Stan Lemke 
introduced for the TS2068 in TDM, May/June '88. 


The Machine Code is not relocatable 
and the program requires a minimum of 16K 
RAM. Those readers who wish to use the 
CKTYPE listings should LOAD the final BASIC 
version before proceeding. 

Listing K is the final decimal machine 
code data, after deleting the unused 
portion of the Run Time Package. Included 
in the code is a routine to load a program 
from tape, defeating the autorun. This is 
necessary as some programs may contain 
machine code that would be loaded into the 
area where the code for CKTYPE 1000 will 
reside, if they were allowed to autorun. 

The loading routine will not work if you 
play the tape before the end of any program 
proceeding the one you wish to load. 

Listing L is a program that will 
convert the machine code data into the 
corresponding character (CHR$) and enter it 
into the dimensioned string A$. This 
program will also produce a printout in the 
same format as Listing K, so that you can 
check the data. To correct an error, use 
the direct commands 

LET A$(n)=CHR$ c 

where n= the string character number and 
c- the correct decimal code. 

WARNING: FROM THIS POINT ON, DO NOT USE 
CLEAR, DIM A$, NEW, OR RUN. These commands 
would erase A$, 

Listing M is the CKTYPE printout for 
the program of Listing L. 

After entering and checking all of the 
M/C data, program lines are to be deleted 
or added so that the program will now 
appear as in Listing N. After POKEing some 
additional machine code into the REM 
statement using the direct command GOTO 2 
and deleting lines 2 to 6, this becomes the 
final CKTYPE 1000 M/C program. To SAVE the 
program on tape, use the direct command: 
GOTO 20. 

Listing 0 is the CKTYPE for Listing N 
before using the command GOTO 2. 

When LOADed, the program will: 

Set RAMT0P to 32085 

POKE the machine code stored in A$ into the 
addresses above RAMT0P starting with 32086 
Clean the memory below RAMT0P in 


preparation for either typing in a program 
or LOADing a program from tape for which a 
CKTYPE listing is desired 

Instructions for operating the 
programs will be displayed on the screen. 
Anyone needing more detailed instructions, 
send an S.A.S.E. to me at 4356 King 
Theodore Dr. Boynton Bch., FL 33436. 
Comments on this series of articles are 
also solicited. 
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125 17 

1 

0 

42 

q$(205) 

120 

t 3 j— t *3 cr 

34 

120 

125 

q $( 2 ii) 

205 

201 127 

130 

125 

*! U 

CL '*J 

q$(217) 

203 

1 205 

42 

122 

12 F. 

H$(223) 

205 

44 127 

•**• a • 

•-I* O 

6 

0 

H$(229) 

235 

153 12 7 

205 

108 

127 

H$(235) 

14 

© 112 

42 

-124 

126 

q$ (24-D 

235 

44 127 

o o 

13 

0 

q$ (24-7) 

205 

153 127 

2G5 

108 

127 

H$(253) 

14 

0 112 

42 

IhF, 

126 

Hi(259) 

• 

205 

44 127 

62 

118 

21b 

H$(265) 

•*i CT • •• 
r v x t 

r& • Z 9 -1 

iZ. *CJ •_ s 

142 

•”i Cj “7 

9 1 

q$ (27i) 

113 

.* a . 

* • • a 

: iZZ *4- 

( l^^a 

•n a—. 

205 

H$ (277) 

24 

: —- .• — • i.m —. 

^^a • • 

143 

127 

124 

H $ (233) 

125 

• • • m » _ a 

~ ^ = 4 . O 

.1 •— a T 

J-.ZL 

*71 

0 1_ 

H$ (239) 

0 

0 0 

0 

0 

0 

H$ (295) 

0 

0 0 

0 

0 

cZH 

HL 1 

H $ (301) 

0 

0 0 

0 

0 


H$ (307) 

0 

0 205 

’3 * -* ^ 

•“l 

2G5 

q$ (313) 

211 

— • .• —• I.M K 

67 

a a 

201 

q$(319) 

1 

0 r - 

195 

117 

11 

q$ (325) 

197 

6 15 

124 

• a 

a a 

1 t 

a"*! a*i 

a — X 

q$ (33i) 

0 

0 41 

203 

17 

23 

q$(337) 

43 

1 25 

16 

247 

19 3 

q$ (343) 

201 

14 0 

124 

170 

2'~;0 

q$ (349) 

123 

71 213 

205 

0 

127 

q$(355) 

mam mm 

205 0 

127 

235 

•“1 •“# C» 

•J 

q$ (3bl) 

121 

167 40 

54 

120 

177 

q$(367) 

229 

237 9 8 

""f 

82 

"t 

H$(373) 

193 

209 33 

0 

0 


q$ (379) 

63 

| ^ /I a - ™*! 

83 

30 

• a 

t_l 

q$ (335) 

41 

48 s”" 

143 

237 

74 

q$ (391) 

24 

9 135 

237 

74 

56 

q$(397) 

3 

237 6b 

61 

60 

29 

q$(403) 

32 

236 95 

241 

48 

2 2 6 

q$( 409 ) 

233 

79 32 

1 

“l La 

r .^1 .J 

203 
















(4-69) 

(4-75) 

(4-81) 

(4-87) 

(493) 

(499) 






AS ( 

P$ (4 
P$ ( 

P$ ( 

P$ (4 
P$ ( 

9$ (45 
9$ (45 
9 $ ( 

9$ 

9$ 

9$ 

2$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 

9$ 


) 

1) 
) 
) 

9) 
) 
) 

7) 
) 


J 

?) 
3) 
) 

(535) 

(541) 

(547) 

(553) 




( 

( 

(5 
(5 
( 



J 
) 

1) 
7) 
3) 
(5S9) 
(595) 
(601) 
(607) 
(613) 
(619) 
(625) 
(631) 
(637) 
(643) 
(649) 
(655) 
(661) 
(667) 
(673) 
(679) 


127 

126 

124 

96 

33 

1 

1 

122 

0 

111 

71 

10 

22 

240 



» • 



(505) 193 

( 

£ 


28 

113 



122 

225 

47 

24 

233 

75 

119 



86 

233 

203 






1 

1 


0 

94 

1Q3 


127 



110 


• • • • •t 

± w 


•j • -• / 

5 ” 

0 

i 

16 B 

•—I •? 




• I 


203 

215 

216 
7 

33 

112 

151 

C- Z* i 

203 

126 

254 

243 

151 



218 

209 

124 

35 

128 

1 



113 

3 3 



198 

35 


* I 


43 

209 

115 



228 

201 

33 


24 

ii 

.1 

r—. 

203 

208 

235 

82 

201 

0 

192 

128 

24 

128 

124 

87 

237 

•<1 .1 J% 

ill 

216 

58 

33 

25 

203 

124. 

40 



30 



93 

203 

237 

111 

250 

oS 

118 



24 

33 

229 
114 
161 
227 

230 
78 
203 
3 




—‘ 1/ 


201 

229 

6 

213 

122 

35 

1 

216 

193 

0 



3 


173 

64 

122 

111 

131 

40 




148 

2 

48 



201 

227 

192 

31 

40 




8 

225 

213 

4 

16 



114 

235 

193 



201 


LISTING L 


205 

2 4 

167 
124 
44 
4 

168 

Q •“ 
l mm* CL 

•"* J •*» •** 

i— W * I 

64 

79 

6 

127 

197 

10 

87 

40 

131 

215 

239 

112 

3 

126 


154 



64 

178 



94 

225 



10 



253 13 


134 

64 




235 

197 

205 

233 

193 


• • 
. "l 


t # 


131 

201 


I • - 


/ . I 


103 

.iii 

1 

203 

32 



1 

205 

229 

30 

1 

215 

203 

201 

4© 



24 

144 



11 

10 

35 

235 




60 

57 

po p 

203 

35 


94 
33 7 

86 43 



225 

228 

IS 

235 

201 


20 DIM P$i632) 

170 PRINT ”WORKING FROM LEFT TO 

RIGHT, ENTER P DPTP UPLUE” 

180 FOR N = 1 TO 682 

185 INPUT DPTP 

190 LET P$(N)=CHR$ DPTP 

200 NEXT N 

201 PRINT PT 0O; "TO OBThIN P P 

RINTOUT OF P$, TURN ON PRINT 

ER PND PRESS P LET-TER KEY OTHER 
WISE PRESS BREPK" 

L02 PPUsE 32768 

203 FOR N =1 TO 682 STEP 6 


204 LPRINT TPS 0; "P$ ( ";N; ”) ”;TP 
B 3;CODE P$(N);TPB 12;CODE P$'(N + 
1);TPB 16;CODE P$ (N+2) ;TPB 20;CO 
DE P$(N+3);TPB 24;CODE P$(N+4);T 
PB 23;CODE P$(N+5) 

205 NEXT N 

206 PRINT PT 0,0;“TO CORRECT PN 
ERRONEOUS UPLUE . USE THE DIREP 

T COMMPND: LET P$ (N) =CHR 

$ DPTP UHERE N=THE C 

HPRPCTER NUMBER IN THE STRING PN 
D DPTP IS THE COR- RECT UPLUE” 
210 STOP 









• • • • • • 


20 

170 

180 

185 

190 

200 

201 

202 

203 

204 



L0b 

210 


LISTING M 




21 

5 

13 

3 

114 

13 

?q 



I. * 


3 

191 


LISTING 0 


992 

2300 



•« « "7 


539 

t Q 

17 
4667 
816 
2088 
8429 
417 
6918 


4 

• • • 


1 

6 

433 


21 

1243 

3 

22 

1249 

4 

22 

1215 

5 

23 

1335 

6 

23 

1235 

10 

2 

375 

20 

10 

705 

30 

2 

350 

40 

22 

1236 

50 

23 

1344 

60 

22 

1581 

70 

21 

1287 

30 

21 

1485 

Q0 

23 

159 3 

100 

22 

IclO 

110 

23 

13 3 8 

120 

14 

1031 

130 

10 

717 

140 

190 

y £i _l 4- 

150 

140 

« 4 

D ± Q 

160 

91 

Ca O 

170 

13 

8 1 6 

180 

21 

1497 

190 

22 . 

1543 

200 

3 

417 

210 

2 

351 


|53]|!i||E3||S3||5SI!i 


Ha 



HHHEEH 

[I5][sfl][i 

hIImIIB 

gsmga 

WIESP 

W\ 

3HBBS 








LISTING N 


0 
30 


1 REM 1234 

2 POKE 16510., 0 

3 POKE 16514 ,49 

4 POKE 16515.31 

5 POKE 16515 

6 POKE 16517 
0 RETURN 

SPUE "CKTYPE" 


125 

201 



1 1 . 


; PT 



40 POKE 16333,35 
50 POKE 16389,125 
60 POKE 32034,62 
70 POKE 32033,0 
30 POKE 32082,6 
90 POKE 32031,118 
100 POKE 16386,31 
110 POKE 16337;125 
120 RPND U5R 16514 
130 GOSUB 10 
140 PRINT PT 0.9;" 

2,0;"1. RPMTOP HPS BEEN SET 
PT 32085”;PT 4,0;"2. PRESS p LE 
TTER KEY TO MOUE M/C PBOUE RPM 
TOP PFTER MPKING P NOTE OF THE F 
QLLOUING" 

150 PRINT PT 3,0;"3. UHEN CURSO 
R APPEARS, EITHER TYPE IN P PRO 
GRPM OR LOPD P PRO-GRPM FROM TPP 
E USING THE DIRECT COMMPND: RPND 
USR 32394" 

160 PRINT PT 13.0;"4. TO LPRINT 
P CKTYPE LISTING,' USE THE DIRE 
COMMPND: RPND USR320S6" 

170 PPUSE 32763 
130 FOR N =1 TO 632 
190 POKE N + 320S5,CODE P$ (N) 

200 NEXT N 
210 NEU 



525H5252 
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by Real Gagnon 


ARCHIVE is a powerful database program but there are some little 
known secrets that can make life easier to every programmer. 

ARCHIVE version 2.35 introduced a whole new control characters 
set which are undocummented in the ARCHIVE reference manual. 
These characters adds more options to the ARCHIVE PRINT command. 
A complete list can be found in the ARCHIVE RUN-TIME manual only 
available from PSION or maybe from a few QL dealer. 

We learn that some characters with ASCII code inferior to 32 get 
special attention from the ARCHIVE screen driver. 

Some of these characters have their equivalent in ARCHIVE 
language, for exemple, take CHR(l), it can be used to set the 
INK color, the form is CHR(1)+CHR(n> where n is the color number 
(same number as in SUPERBASIC). 


But some of these codes have a more unique effect, let’s see 
some of them. 

CHR(4)+CHR(c)+CHR (r) is very useful, CHR(c) will be repeated 

"r" times. 

If we have PRINT CHR(4)+"*"+chr (80), 
the character will be displayed 80 
times on the screen. 

CHR(5) is an underline switch. Try this: 

PRINT CHR(5)+"SINCLAIR"+CHR(5)+" QL" 

CHR(6) moves the cursor to the right 

CHR(8) moves the cursor to the left 

CHR(9)+CHR(c> Same as SUPERBASIC PRINT TO c, 

where c is the column number. 


PRINT "This a M +CHR(l)+CHR(2)+ , ’test M is equivalent to 
PRINT "This a ";ink 2;"test" . 


CHR(10) 
CHR (11) 


moves the cursor down 
moves the cursor up 































CHR(12) 


erases the screen like CLS. 

CHR(14) then you see the cursor flashing 

CHR(15) then you don't see the cursor flashing 

CHR(18)+CHR(n) is the equivalent to the SUPERBASIC OVER 

command. 

n~0 then PRINT with INK on current PAPER 
n-1 then PRINT with INK with TRANSPARENT 
paper, it's overprinting. 

n--2 then PRINT with INK but XOR the data 
on the screen. 


These graphic characters are similar to those found on IBM 
GRAPHICS compatible printer. Run the following program to print 
a reference sheet for the 11 new characters with the 
corresponding ARCHIVE codes. Your printer must be set for the 
IBM GRAPHICS character set #2, but anyway if your printer do not 
have the capability to print them, you can still use them in 
ARCHIVE! 


SuperBasic program to print a 
reference sheet for ARCHIVE 
graphic characters. 


CHR(20)+CHR(a)+CHR(b) creates a WINDOW. 

+CHR(c)* CHR(d) The coordinates are in "characters". 

"a" is the left margin from the left 
side of the screen. 

"b" is the top margin from the top of 
the screen. 

"c" is the right margin from the left 
side of the screen. 

"d" is the bottom margin from the top 
of the screen. 


LEFT 


a=10 


c=20 


CHR(21)+CHR (n) 
CHR(22)+CHR (n) 
CHR(23)+CHR (n) 
CHR(24)+CHR (n) 

CHR(26) 


CHR(27)+CHR (n) 


CHR(30) 


An exemple will help to understand the 
ARCHIVE WINDOW creation. 

PRINT CHR (20)+CHR(10)+CHR(15)+CHR(20) + 

CHR(30) 

will create the following WINDOW. 

TOP 


! b-15 


window 


d=30 


RIGHT 


Archive screen 


BOTTOM 

There is only one active WINDOW at 
one time. 

The initial ARCHIVE WINDOW is defined 
with the following parameters: 

CHR(20)+CHR(0)+CHR(0)+CHR(80)+CHR(25) 

scrolls up "n" lines, 
scrolls down "n" lines, 
scrolls left "c" columns, 
scrolls right "c" columns. 

exchanges the PAPER with the INK, it's 
INVERSE printing. 

is for special CLS. 

n=65 , CLS from the cursor position to 
the end of line. 

n-66 , CLS from the cursor position to 
the end of the screen/window, 
n -67 , STORE the cursor position. 
n~68 , RESTORE the cursor position. 

puts the cursor at the position 0,0 

without erasing the screen. 

•• 


1 REMark by Real Gaqnon Montreal May 1988 

2 : 

10 OPEN #4,ser1 
20 : 

30 PRINT #4,'.ARCHIVE graphic characters (SEDIT) 

35 PRINT #4,' function key F5 then one of the following keys:' 

37 PRINT #4,CHR$(27);'A’;CHR$(18) : REMark set line spacing (opt.) 
40 PRINT #4,'KEY CHARACTER',' ARCHIVE code' 

45 RESTORE 
47 : 

50 REPeat loop 
60 READ sed,ibm,ql$ 

70 PRINT#4, CHR$(sed),,CHR$(ibm),,ql$ 

80 IF sed r -107: EXIT loop 
90 END REPeat loop 
95 : 

100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 

180 DATA 
190 DATA 
200 DATA 


97, 

179,' 

224' 

:REMark 

a 

98, 

180,' 

225' 

:REMark 

b 

99, 

191,' 

226' 

:REMark 

c 

100 

,192, 

' 227' 

:REMark 

d 

101 

,193, 

' 228' 

:REMark 

e 

102 

,194, 

' 229' 

:REMark 

f 

103 

,195, 

'230' 

:REMark 

9 

104 

,196, 

'231' 

:REMark 

h 

105 

,197, 

' 232' 

1 :REMar k 

• 

1 

106 

,217, 

'233' 

1 :REMark 

• 

J 

107 

,218, 

'234' 

1 .“REMark 

k 


I .ARCHIVE 

I Function 

GRAPHIC CHARACTERS 
KEY F5 THEN ONE OF 

(SEDIT) I 

THE FOLLOWING KEYS: 1 

I KEY 

CHARACTER 

ARCHIVE CODE I 

1 A 

i 

224 j 

a B 


225 I 

1 c 

1 

226 I 

1 D 

L 

227 I 

a E 

JL 

228 1 

J F 

T 

229 I 

I G 

h 

230 I 

1 H 

— 

231 J 

j I 

t 

, 232 I 

I ° 

J 

233 J 

[ __ 

r 

234 1 


CHR(31)+CHR(a)+CHR(b) Same as AT a,b . PRINT at line "a", 

column "b". 


There is more control codes, but these are the most useful ones. 

A very useful undocummented feature with the SEDIT command is 
hidden in ARCHIVE version 2.35. 

When designing a screen, ARCHIVE provides some graphic 
characters to draw boxes. To use them, in SEDIT, do F5 and after 
press any key between "a" and "k". When drawing a box, you don't 
have to press each time F5 and the right key because SEDIT gives 
an easy way to repeat the last typed characters, just keep your 
finger on SHIFT and press a cursor key. 
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How Does This IBM Translator Software 
Package From HINNY ELECTRONICS Stack Up?? 

reviewed by Michael E. Carver 


This package bills itself as "a file transfer and 
BASIC language dialect translater". PC-Import will 
allow the user, who has access to an IBM Personal 
Computer (or compatible) equipped with a communication 
board and a QL, to "download" and translate Microsoft 
BASIC programs into SuperBASIC, which will run in¬ 
dependently on the QL. After a couple of false starts, 

I was able to successfully import IBM BASIC programs 
into my QL. 

The first problem was hardware oriented. The 
manual assumes the user has a ready-made RS-232 cable. 
As I built my own cable, there were some problems not 
addressed in the accompanying manual. The QL serial 
ports only have 5 lines (GND, Txd, RxD, DTR, and CTS). 
The IBM serial ports have 9 different lines. In order 
for IBM BIOS to send messages out the serial port, 
both the DSR and CTS lines must be "true". I had to 
"tie" the DSR and CTS pins on the IBM together, to 
achieve communications from the IBM to the QL. This 
was accomplished by soldering a "jumper" wire between 
pins 5 and 6 (CTS & DTR) on the IBM cable end. 

The other false start was due to an error in the 
manual. The manual provides step-by-step instructions 
on preparing MS-DOS to send information out its RS-232 
port. To accomplish this, the printer output (LPT1) is 
directed to the communication output (C0M1). The in¬ 
structions successfully got me to this point, but the 
steps to direct a copy of the BASIC program to the 
printer output was in error. "COPY A: [file_name> 
LST1" would not work. This should have read, "COPY A: 

LPT1". With this minor correction, I 
received data from the IBM successfully every time. 

Before a BASIC program is transferred to the QL, 
it must be in ASCII format. The manual provides 
sufficient instruction on how to insure the BASIC 
files are in ASCII. As the program is "sent" to the 
QL, it is written to a file on a user—specified micro- 
drive. The transfer portion of PC-IMPORT is straight¬ 
forward and quick. The transfer rate is 4800 baud and 
only takes seconds. 

The most important part of the program is the 
translation of IBM's BASIC into SuperBASIC. As 
PC-IMPORT is written entirely in BASIC, the 
translation is slow. Approximately 2.8 bytes are 
translated per second. A 4551 byte program took 27 
minutes and 16 seconds to translate. The manual claims 
that up to 90 percent of the translation work can be 
achieved by PC-IMPORT. I found this figure to be 
highly overstated. Only a portion of non-compatible 
Microsoft BASIC is translated into SuperBASIC (see 
Table 1). A fair knowledge of BASIC programming, and 
an ability to follow a BASIC listing to fathom the 

flow and logic are required to successfully get most 
imported BASIC programs to run on the QL. 

As an acid-test, I took a text-manipulation 
program I had written on an IBM at work as an example. 
The program includes no graphics and simply accepts 
input from the keyboard. It then breaks up the text 
into proper spacing for book card labels. Due to major 
differences between the way the IBM BASIC handles 
string manipulation and undefined variables, I ran 
into many problems getting the program to run on the 
QL. Even though I had written the program, it was hard 
to follow the logic and correctly make the "hand- 
translations" required. One of the major problems was 

caused by the incomplete PC-IMPORT translation of the 
MID$ command. 

A 2048 byte program (translated in 12:09 minutes) 
took me about 20 to 25 minutes to re-edit and hand- 
translate to achieve proper execution. I would not 
have .been able to achieve this without the constant 
referral to the Microsoft BASIC manual. I have had 


limited experience in BASIC programming on an IBM. (I 

would like to take a second to applaud the Sinclair 

BASICs. They are far easier languages to program, than 

Microsoft BASIC.) If you do not have access to a 

Microsoft manual, check your local library, you*11 

probably need it. As SuperBASIC will mark any BASIC 

line with "MISTAKE", the "hand-translation" job is 

made easier. The PC—IMPORT manual does provide a small 

table of BASICA commands with SuperBASIC equivalents, 
if any. 

Most of the programs I imported dealt with 
graphics, but none of the graphic commands are 
translated by PC-IMPORT. One thing to keep in mind 
when translating most BASICs into Sinclair BASIC, is 
that their graphic screens are upside down (point 0,0 
is in the upper-left-hand corner). Many of the IBM 
graphic commands can be imitated by creating 
procedures with SuperBASIC, to achieve the proper 
results (see Listing 1). 

Some other uses for PC-IMPORT, which aren't 
mentioned in the manual, include: downloading BASIC 
ASCII files from bulleting boards and translating them 
into SuperBASIC. Using QUILL to type in a BASIC 
listing, printing it to a microdrive file and using 
PC-IMPORT to translate. The printer drive with QUILL 
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IBM commands translated Into Super BASIC 


will need to be altered to print a useable file to the 
microdrive (see Table 2). One may also use a simple 

program to enter an IBM listing directly into a 
microdrive file (see Listing 2). 

I have mixed feelings about PC-IMPORT. It is slow 
and incomplete. PC-IMPORT must be viewed only as a 
programmer’s tool. To achieve full usefulness from 
PC-IMPORT, the user must be a fair to accomplished 
BASIC programmer. If one has access to an IBM (or 
any other "on-line" source of Microsoft BASIC), a lot 
of typing and raw translating can be avoided. I 

believe that PC-IMPORT could have been a much better 
program had other IBM BASIC commands been supported 
(i.e., PSET, INSTR, SPACES, "\" or Interger Division, 
LOG). Also commands such as MIDS should have been 
fully translated, or RANDOMIZE should have been 
translated to the British spelling. I only hope that 
Minny Electronics will provide updated versions of 
this product in the future. 

This program was obtained for review from: RMG 
Enterprises, 1419 1/2 7th Street, Oregon City, OR 
97045, (503) 655-7484. 


T abla 1 — 


INPUT 

DATA 

THEN 

GOTO 

GOSUB 

TAB 

TO 

* 

ASC 

COLOR 

SQR 

SGN 

LOCATE 

LEFT* 

MID* 

RIGHT* 

STRING* 

ELSE 

VAL 



Table 2 — Quill 

Printer Driver 

for ASCII BASIC 


DRIVER NAME :BASIC 

PORT :serl 

BAUD RATE ;9600 

PARITY :NONE 

LINES/PAGE :255 

CHARACTERS/LINE :255 

CONTINUOUS FORMS :YES 

END OF LINE CODE :LF 

PREAMBLE CODE :NONE 

POSTAMBLE CODE :NONE 


LISTING 1 


All other options :NONE 


1450 REMarU 
1452 REMarU 
1454 REMarU 
1460 REMarU 
1462 : 


Microsoft BASIC command to draw a box 
The two co-ords are adjacent corners of the box 
followed by inU color -- B * box or BF » Fill 
LINE <IX1,IY1)-<IX2,IY2>,RND*2+1,BF 


1464 REMarU - SuperBASIC translation using PROCEDURE box 

1466 box 1X1,IY1,1X2,IY2,RND(1 TO 7),1 
1468 : 


1470 REMarU - LINE <1X1,IY1)-(IX2,IY2),0,B 

1472 box 1X1,IY1,1X2,IY2,O,0: REMarU SuperBASIC translation 
1474 : 

9000 DEF i ne PROCedure box (x,y,xc,yc,crayon,a11) 

9005 FILL all: INK crayon 

9010 LINE x,y TO xc,y TO xc,yc TO x,yc TO x,y 
9015 FILL 0 


NOTE: To send the ASCII BASIC to 
microdrive, the above printer 
driver must be installed or be 
present on the default drive 
(usually #1) as "PRINTER_DAT". 
Select the Print option from 
within Quill and direct output to 
[Device_filename) instead of the 
printer. 



■■ A Fractal World 

UPDATE 

by Michael E. Carver 


As I was developing the mandelbrot program, I 
was unable to drive my monitor in FI mode. I was un¬ 
aware of the difference between the height of the 
characters as sent to the Screen. The following 
listings will allow complete viewing of the mini_menu 
area and the "canvas" while the Madelbrot Sets are 
being drawn (when the QL is in Fl-Monitor mode). 

Key-in and run the following Listing. This 
contains a short machine code routine to send only 8 
lines of pixel information for each character (as 
opposed to 10 in Monitor mode). The program will 
self-install into the machine and save tc MDV1 . 


THE MOST COMPREHENSIVE 
RESOURCE FOR THE SINCLAIR 
QL. GET YOUR COPY TODAY!! 

More and more QL owners are discovering the excellent new book by 
Mike de Sosa — TAKING THE QUANTUM LEAP: The Last Word On 

The Sinclair QL. 

This 280 page book is chock full of useful programs and original 
programming examples. Chapters on using the bundled software and a 
look at the latest hardware and software releases. Written for both the 
novice and more advanced users. Priced less than most software 

packages and nearly two pounds of information!! 

$26 (USA). 

Exclusively available from: 

TIME DESIGNS 

29772 Hult Road, Colton, Oregon, 97017, USA. Telephone (503) 

824-2658. 

VISA and MASTERCARD accepted. 

For a sample QL and Spectrum magazine, send $3 


10 REMarU **** loader for SD.YINC assign 
20 a**RESPR(68) : RESTORE 

30 FOR x=*0 TO 67 STEP 2 

40 READ num: POKE_W <a+x),num 
50 END FOR x 

60 SBYTES mdvl_YINC_code,a,68 
1000 DATA 17914,56,8316,1,1,28681,30463,20035 
1010 DATA 8316,2,2,28681,30463,20035,28680,9326 
1020 DATA 48,-16132,40,-10816,8310,-22528,17914 

1030 DATA 28681,30463,20035,28672,20085,12668,8 

1040 DATA 28672,20085 


Insure that your Master Mandelbrot cartridge 
contains a copy of the newly created code 
(YINC_code). Insert (or merge) the following listing 
into the BASIC listing of the Mandelbrot program: 

1905 CALL yinc 

2555 yinc=RESPR(68): LBYTES mdvl_yinc_code,yinc: CALL 
yinc 

2905 CALL yinc 
3755 CALL yinc 
4605 CALL yinc 
4665 CALL yinc 
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by Mike de Sosa 


QJunrp’s QRAM v. 1.16 * * * * 1/2 

Earlier versions of Tony Tebby's QRAM, 
tested as part of the Sandy SuperQBoard 
system, troubled me, but now I realize that 
this was mainly due to flaws in the system 
and not in the QRAM software, itself. Then 
there were the spurious rumors that Tony had 
designed QRAM to be incompatible with the 
software of some of his competitors (Supei— 
charge and QLiberator, to name two) . What¬ 
ever the whole truth, much is now improved. 
QRAM now seems to work well with SPEED- 
SCREEN, Trump Card and other disk interfaces 
and RAM packs, but not with FLASHBACK or 
TurboQuill+—two top-notch programs. 

QRAM comprises RAM-based utilities for 
the QL: a full multitasking front end, pop¬ 
up menus (within your Psion programs), fast 
and versatile RAMdisk software, dual- 
keystroke hotkeys, screen and window dumps, 
spoolers, a good compatibility with Tebby’s 
QDOS and SUPERTOOLKIT II and other software, 
and many other utilities. 

QRAM, already very efficient as it comes, 
offers many opportunities for customization. 
In its "stock” configuration, it "comes up" 
in the standard QL dual-screen format. 
Keying Alt / from the SuperBASIC format or 
within Psion or other programs presents the 
initial pop-up menu with six main options 
(FILES, JOBS, CHANNELS, PRINT, WINDOW DUMP, 
OPTIONS, and several redundant controls for 
QUIT, HELP, and moving the menu window. Two 
methods of selecting options are always 
available: by means of a pointer control¬ 
lable with the cursor or QIMI (QL Internal 
Mouse Interface) and by keying the first 
letter of an option. The SPACE bar is 
usually used to select an action or file, 
and ENTER to execute a selected command. 

QRAM is most economical in the use of 
keystrokes required to get into, out of, and 
between programs, especially if one custom¬ 
izes the BOOT and HOTKEY files. As many 
runs of one or more programs can be 
multitasked and switched between as memory 
permits and this capability is enhanced by 
Grabber, a utility which modifies programs 
such as Psion's QL QUILL so that they don't 
gobble up all available memory. A fraction 
of a star is deducted for its sometimes dif¬ 
ficult or skimpy documentation and because 
it is not, at least in this version, compat¬ 
ible with some important new programs. If 
TASKMASTER is the Mercedes Benz of full- 
featured multitaskers, QRAM is the BMW, 
handier and superior in some ways. 


HOT TIPS: Grabber-modified Psion programs 
and RAMdisk software (RAMprt) is usable 
separately without QRAM. 

About $55, but make sure it’s version 1.16! 


A.R.K. ’s ARCHIVIST MP * * * * 1/2 

Applied Research Kernel Distribution's 
ARCHIVIST MP database manager is not an up¬ 
grade of ARCHIVIST 128, but a quantum leap 
forward. MP is for Multi-file Programmable: 
it can open and use up to 20 files at a time 
and may be programmed at several levels and 
in many ways to meet special requirements— 
it can access up to 200,000 records (over 
100,000 with Trump Card). (It is also com¬ 
patible with ARCHIVIST 128 files and screen 
formats and can use QL ARCHIVE database, 
screen, and export files.) 

Making use of Run-time ARCHIVE, it runs 
alone but is programmable using QL ARCHIVE 

v. 2.38 (ARCHDEV). A control file option is 
available by which one can set up a 
multi-file system and automatically copy 
selected database and screen files to 
RAMdisk at turn on, enabling rapid access to 
data. Entering the name of a single control 
file can initiate use of a comprehensive 
system of database files and multiple screen 
formats. Global searches of various types 
can be undertaken among open files. 

To simplify matters, ARCHIVIST MP makes 
use of a standard 22 renamable fields of up 
to 69 characters, one field per line. This 
arrangement is extremely practical—most 
database designers fail to "keep it simple, 
stupid," and create their own;pitfalIs. 

ARCHIVIST HP is in many ways comparable 
to high-capacity database ' handlers like 
dBase 3: rational menu structures offer 
single keystroke access to various functions 
and "external” utility programs can be 
executed from a "Tools Menu"—the example 
program supplied has many useful utilities 
including one to sum values in a given field 
throughout a file and those to globally 
delete, insert, or replace strings of text 
in any field of every record. Documentation 
is excellent and a tutorial on database use. 

A fraction of a star was deducted because 
all ARCHIVIST MP fields are string fields, 
making it more difficult to compute and 
insert the value of interactive mathematical 
values than it is using QL ARCHIVE, and 
because data is not directly transferable to 
external programs as it is using FLASHBACK. 
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Requiring a minimum of 256K total RAM, 
ARCHIVIST HP is supplied on Microdrive cart¬ 
ridges and 3.5” or 5.25” disks. Available 
for about $76 ($56 if you return the origi¬ 
nal ARCHIVIST 128 cartridge), using UK 
checks, Eurocheque, International GIRO, or 
VISA card, directly from ARK Distribution, 
Carve Farmhouse, Chale Green, Ventnor, P038 
2LA, U.K. (Telephone 0983 79 496). ARK will 
also supply QL ARCHIVE v. 2.38, for about 
S36, and other software. 


Software87’s Text®^ v. 1.06 * * * * 1/2 


Digital Precision's excellent text editor 
THE EDITOR was subtitled "Chuck Quill Out!” 
by its designers, but even the advanced 
Special Edition of THE EDITOR failed to oust 

QL QUILL from its WYSIWYG ("What you see is 
what you get”) supremacy, 

such great QUILL-enhancers as SPBEDSCREEH, 
TurboQuill+, and FLASHBACK greatly increased 
the performance of QL QUILL without 
decreasing its user-friendliness. 








to do 

just that, but it has a little way to go 

before it will supplant the cheapest and 
easiest of them all. 





is billed as a full-featured 
WYSIWYG word processor designed for easy use 
by amateurs. The printer driver permits con¬ 
figuration for "any type of printer,” but, 
if yours is not one of the 

programmed types, it is not directly 
configurable without an assembler. 

Text 0:7 is menu-extensive and typeface- 
and typesize intensive: it will print any¬ 
thing that your printer can—assuming compat 
ibility—and offers comprehensive functions, 
including easy block transfer to other 

files, QL QUILL's main drawback. It also 
loads QL QUILL doc files. 

is very compact (64K) and requires 
a minimum of 64K RAM expansion (a total of 
192K RAM)—more is better. With 256K RAM, 
Text 07 is said to load a 3400-word QUILL 
_doc file in 12 seconds and a 33000—word 
file in 52 seconds. Printers directly 
supported in this version include the Epson 
FX80, LX800, and DX100; the Silver-Reed 
EXP500; the Brother HR10 and HR15; and the 
Diablo 630. The FX80 



to work 


printer driver seems 
well on my old Star Delta 10 
printer. An ASCII printer driver is also 
supplied for use with obsolete or 
nonstandard printers. 

Text 07 is compatible with QRAM, TASK¬ 
MASTER, SPEEDSCREEN, FLASHBACK, and SPELL¬ 
BOUND. Founted 07 , by the same firm, is a 
compatible and easy to use font (or fount) 
editor; Fountext88 is a graphic printer 
driver for Text Qir that provides more than 20 
printer typefaces in different sizes for 
Epson-compatible dot-matrix printers. 2488 
is a set of dedicated printer drivers for 
Epson and NEC 24-pin printers that supports 
different print styles and sizes and propoi— 
tionally spaced typefaces. 

Text 07 lies in complexity somewhere 
between QL QUILL and The Editor, 
closer to the latter. But, if you are ready 
and able to undertake learning some new word 
processor concepts, and have a compatible 
printer, and can afford it, Text 07r should do 




a 


about anything very quickly. It may 
sent a hybrid, rather futuristic combination 

between a word processor and 

publisher. 

The documentation 
of 


desktop 


a not always 
manual; for example, 

found in the 


I have 
clear or 


is 


in the form 

60- 


options 


mplete 
not all commands 
submenus 



and 



But a 
tutorial 
I had 


revised manual 


new 


including 

is probably available now. 

intended to do a full article on 

the capabilities and operation of Text s:jr for 

this issue, but late notification of a short 
deadline made this 


for sure 


impossible. 


Next time 



is 


Software 87, 


now 
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available 



2JU, 


U. K. 




directly from 
Road, London NW3 
Airmailed prices for Text e:r and 
$75 and $15, respectively, 
and 2488 are $45 and $15, 
respectively. Payment must be made by 
traveler's check, International GIRO postal 
money order, or other check directly payable 
at a U.K. bank; add about $8.50 for checks 
not so payable! 


EMSOFT'S HA ILBAG * * * * 1/4 


software consisting 

and 



RAM 




MAILBAG is American 
of database handling programs 
for use with QL ARCHIVE, a minimum of 256K 

required. It provides a versatile 
for purposes ranging from a simple 
to sma11—business use. Its designer 
Hale of Boston is high on it, saying 
that it is "the most exciting program for 
ARCHIVE that has yet been released,” dis- 

from other database applications 




tinguished 


for the 



QL by 
names and 




flexibility in 

lack of 



and 


in 

It 


handling 

protection from illegal pirating, 
offering menu-driven QL ARCHIVE programs 
also offers mailmerge facilities using 
specially prepared QL QUILL documents. 

Documentation consists of a 4-page flyer 
and a 12-page _doc file, but I understand 

that you may never have to use the latter. 
I did! 

Peter claims that MAILBAG is unique in 
four respects: 


a. It prints labels to a U.S. Postal 
Service standard 

b. It is unprotected and may be fully 
user edited for screen displays, programs, 
and listings . t 

c. It prints with versatility without 
having to change printer_dat files. 

d. The user may design custom formats 
for record display on printouts or as 
mailmerge documents. 

I didn’t have a lot of time to really 
”wring it out” and I am not a database 
person, but from what I have seen it is a 
winner. I shaved part of a star because it 
should be on runtime ARCHIVE and stand 
alone—maybe in its next version. 

Excellent work Peter! 

MAILBAG is available directly from 
EMSOFT, Box 8763, Boston, Mass. 02114-8763 
for $19,95 on 5 1/4” 80-track floppy disk or 
$21.95 on Microdrive cartridge. No credit 
cards. Dealer prices are available. 
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NEXT TIME: A complete and thorough treatise 
on Text 0-7 and more hot software. 





by Tim Woods 


as Z88 


the 


There is a lot to report on this issue, 
activity keeps moving along. But first, an 
planation is in order, for those joining us for 
first time. The "Z-COLUMN" is a regular feature that 
discusses the newest member of the Sinclair computer 
family...the Z88 Laptop. While maintaining some of 
the characteristics of earlier Sinclair machines (Z80 
CPU, very 1ight-weight/compact design, use of func¬ 
tion keys or combination of keys to execute major 
commands, etc.), the Z88 achieves a whole new 
standard of performance and power. If you haven't 
seen one or tried one out yet, there just might be a 
computer dealer in your area. 

As of this writing, there are three 

organizations involved in marketing the Z88 in the 

U.S.A. First, there is SSI Computer Systems in 

Portland, Maine, who distributes the Z88 inventory 

from their New England warehouse. SSI is being 

advised by The Marketing Clinic, which is run by long 

time Sinclair associate, Nigel Searle, 

the former head of Sinclair Research, U.S 

And finally, there is another organi 

Chicago, Illinois, called Cambridge Direct Ltd., 

operated by President, Kevin Jeffers. Cambridge 

Direct is the exclusive direct marketing arm for the 

Z88. To date, I feel that an adequate job is being 

conducted to pomote and market the Z88. There are 

several hundred dealers around the U.S. that are 

stocking them. A large ad recently appeared in the 

WASHINGTON POST newspaper, and very favorable reviews 

of the machine are in the most current issues of BYTE 
and COMPUTER SHOPPER. 

The first issue of Z88 USER, "the official Z88 
computer magazine" hit the streets in April. The 34 
page publication is being produced by the publishers 
of QL WORLD Magazine. It looks like it will be a good 
magazine as soon as they get rolling along on a 
regulai schedule. A question and answer column 


who is also 
division. 
ion near 



covered two 
User Guide. 

Another 
involved in 


items that are undocumented in the Z88 


publication, which I am personally 
is called CLUB Z88. It is a non-profit 
bi-monthly newsletter. One unique feature, is that 
subscribers can earn points, free gifts, and a chance 
to sit on the exclusive "board of directors" by con¬ 
tributing articles, tips, and programs to the 

newsletter. You can obtain a sample issue, by sending 

a SASE to: CLUB Z88, c/o Time Designs, 29722 Hult 
Rd., Colton, OR 97017. 

New products are just now coming on the market: 
a spelling checker, the official Cambridge 300/1200 

modem, A "C" Compiler, the Advanced User 
a cassette tape interface to provide security 
the RAM cards, and the elusive one meg 

are still being promised before the year's 


"matchbook" 
Guide, 
back up for 

RAM cards 
end. 

As a 
processor) : 


tip for PIPEDREAM (the on-board word 
I have found that following the guidlines 
specified for moving the cursor position around, 
using TAB, arrow keys, diamond key, etc., that 
getting into the habit of using these will develop 

manipulation of your text. I know this sounds 
like common sense, but more often than not, we use 

old typing habits in word processors that can really 
slow things down. 




« 

I 




And 


HERE! 

hove 


• • 


• •• 


Sir 


Cl i v*'s 
RMG! 1 


LATEST 


stock 


This 


computer 
128K 


is now in 

SUPER little laptop 
with features like: 
RAH, 32K ROM, 

S/W PACKAGES AND 

SIZE AND WEIGHT (2 
make it a GREAT addition 

line. As our way of 

you to the 288, we 

for a 1 imited 

288 purchased 


t ime 


BUILT- 
SMALL 

LBS! ) 
to our 
introducing 
are offering 
only) with 
before 


any 
9/30/88, 


FREE CENT. PAR. I 

32K RRN CARTRIDGE 


THE PRICE? TOO LOW 

PLEASE CALL 


LIST 


URITE! 


RMG ENTERPRISES 

1 HI9 1/2 7TH STREET 
0RE60N CITY. 0RE60N 97045 
503/455-7184 • NQQN-10 TUE-SAT 
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FOR SALE: EYE-Q, retail $50, sell 
for $35, or best offer. MATCHPOINT, 
retail $28, sell for $18, or best 
offer. Shipping included. WANTED: 
TECHNI_QL. Chia-Chi Chao, 73 
Sullivan Dr., Moraga, CA 94556. 


WANTED: Z-TALKER FOR TS1000. Please 
contact Merlin J. Raymond, 16822 
Farmington Rd., Beaverton, OR 
97007. 


WANTED: I/O PORTS FOR TS1000. 
BYTE-BACK preferred, but others 
considered. Contact Merlin Raymond, 
16822 SW Farmington Rd., Beaverton, 
OR 97007, (503) 591-7392. 


FOR SALE: bound copies of SYNTAX 
vol.1.1 to vol.5.1 plus three SQ 
Quarterlies. $40.00 or free to non¬ 
profit. Peter Hale, Box 8763, 
Boston, MA 02114. 



FREE ADS FOR SUBSCRIBERS 


WANTED: Booklet on 2050 Modem and 
any relevant software. Also full- 
sized keyboard. N. Oshana, 187 
Morningside Dr. E., Bristol, CT 
06010. 


WANTED: ZEBRA GRAPHICS TABLET, 
w/manual, working or defective (if 
repairable). New or used wafers for 
A&J Microdrives. Send description & 
price to: W.E. Powden Sr., R#1 Box 
364, Bridgeport, IL 62417. 


FORTH 79,83 USERS, I would like you 
to drop me a line to swap in¬ 
formation and help. George David 
Johnson, Beaufort Naval Hospital, 
PO Box 6204-A, Beaufort, SC 29902. 


BOOK WANTED: ”S.U.M.-Smal1 User's 
Math- Powerful Algorithms". Willing 
to pay any reasonable price. Jaime 
A Cruz-Figueroa, Rt 2 Box 245-M, 
Li 11ington, NC 27546. 


WILL TRADE: PRO/FILE 2068 for ZX 
PRO/FILE. Also trade BYTE-BACK 
MD—68 for MD—2B, or sell out—right 
(make offer). D.G. Smith, R.415 
Stone St., Johnstown, PA 15906. 


Do you have some equipment or a program that you would like to sell? Looking for something hard to find? Place an 
ad in THE CLASSIFIEDS! Subscribers can place one free personal ad in each issue. Ad size is 32 Col. wide (like 2040 
paper) and maximum of six lines. For additional lines - $3 each. NON-SUBSCRIBERS and DEALERS: $4 a line. 
DEADLINE FOR ALL CLASSIFIED ADS: Two weeks before publication date. Mail your ad to: 

TIME DESIGNS MAGAZINE, The Classifieds Dept., 29722 Hult Rd., Colton, Oregon 97017. 


DON’T 
MISS OUT! 


□[□□□□□□UlUmDDOdD 


□□□□□□□□□□□on 


□□ 


Subscribe Today 


TIME DESIGNS MAGAZINE CO 

29722 Hult Rd., Colton, OR 97017 


lJ New' subscription d Renewal 




Terminal Software 



JL£i 



disk 


tape 



SI/O Bar 


Boar 


Serial Interface 


With 



card 


both 


only 


$50.00 


a. h 


( Outside 48 contiguous states. J65Q StH ) 


This is 


TDM special offer. 


order 


additional info contact: 


Ed Grey Enterprises 


P.0. Box #2186, Inglewood 

(213) 759-7406 


90305 


The Grey Matter BBS 4 RCP/M 

(213) 97M260 






















































APPLICATIONS SOFTWARE for 


MAILBAG 


wan* t believe. 
Rotary index 


you 
Labels, 

Zip 


sorting, tickler filing 
column printout, many 


automatic 

protected 


not 

56K+ 


TAX 


for IRS 


turns 


384K+ 


QLAHDLORD 


units 


or buildings and 
Schedule E (Soon) 


256K+ 


$19.95 


ppd on 


1/4" DSQD 


(+$2.00 on microcartridge) 


Agents for ZX/TS 


Vordprocessor with 


2040 lower 


printer dri 


Orders, Catalogues 


Dealer info: 


F. O . Box 


( 617 ) 


Boston, 

889-0830 


02114 


THE Z88 UNDER 2 LBS 

A Computer Without Compromise 


Z88 


• Where laptops compromise on display and RAM capacity to achieve portaDility, and 
desktops seem to equate price with power, the Z88 Is a personal computer which makes no 
compromises • A CMOS-technology computer with the power to address 4 Mbytes of 
memory • A computer with a work-free display of 8 lines of 80 characters, an LCD screen 
which outdates all others, and a unique dynamic page map on screen • A computer with 
solid-state permanent storage • A computer with advanced word-processing, spreadsheet 
and ingenious time- and data-management software built-in • A computer which is 
completely self-contained, which gives you up to 20 hours active computing from just 4 AA 
batteries, yet which talks and listens to your IBM • A computer with a full-size keyboard, in a 
package less than the size of an 8Vix11, with a total weight of less than 2 lbs. • The Z88. A 
computer without compromise. 


WRITE FOR FREE CATALOG 


Sharp’s, Inc. 

Rt. 10, Box 459 
Mechanicsville, VA 23111 
(804) 746-1664 or 730-9697 



Be sure to stop by our booth at 

THE 3RD ANNUAL INTERNATIONAL/ 

GREAT NW TS MINI-FAIRI 



L HRKE N SVSTEMS 
FEATURED HERE 

The LKDOS disk I/F 

and EXTENDED BASIC 

CARTRIDGE and the NEW 

LARKEN RAMDISK wi11 
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see these 


on display at 
you are invited to stop 

GREAT PRODUCTS demoed! 


Order 


MINI-FAIR SUPER BUY! 


any COMPLETE LKDOS SYSTEM and 
LARKEN DISK EDITOR and 


packages AT 


ABSOLUTELY 

-0R- 


other 
EXTRA CHARGE! 


Order the LKDOS system WITH 

throw 


RAMDISK 


we will 
(Either 


way* you 
FREE items!) 


FREE 32K RAM 

over $20 
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■ 1111 



0 9 5 


P i x e 1 



PLUS!,,. 



The _ 

t o m a k e 



m o r 
F*r o gr am I 


_ is 1 0 mor e fi. 

the PIXEL PRINT 
e F' o T'T e r £ u 1 e a s 

1 


met i on; 





t o u s e 



PiseS Prim! Prodessiomal 

BERCD DISK UER510N! 





Print Plus 

--up t □ 20 

d□c ume n t s 
# Print a 
header ? 


•v* 3.2 




c ompIe t e 
left? ft r ight 

_ mare printer adjustments!) 

♦ Uses ban k-SLui tchi ng to 
left and right columns 
♦Print multiple Copies! 

A DJ ai.ie I 


print 



Pi DTE: printers must be capable 
□ f^72 to 9 0 Dots per inch 
(57E to 720 dots per line) 

Bit Image Graphics!!! 

♦ Rutomated Printer Customizing 

♦ 55DD diskette c or auto-save tape? 

♦ only 523 ppd • <ORDER NOW!> 


QUEER DISK VER 51 DH! 

# Same as the RERCO 
u ersion above e x 
for use uiith the 

□Iiger Disk 




♦ F. e q 



uires a minimum of 32K 
RRCTl expansion. « . (see the 
32K RRCTl Cartridge belDiu!> 


♦ Program comes on CR55ETTE 
and RUTO — 5RUE5 to DISK? some 
editing required (remove R Ew*s> 


♦ only $23^ PPd. 






♦Same as Rerco 
except For use 
uiith Tapes... 



RDTEs 5pecify either 
nr miCRODRlUE... 


TRPE 


♦ Requires a minimum of 32K 
RRCTl expansion... (see the 
3 2 K R RCTi Cartridge be I ain ! ) 

♦ only 523— PPd. < ORDER NQliJ!> 


32K RflUl CARTRIDGE 

♦ 32K Volatile memory 

♦ Fits into the T5-20E0 
Car t ridge Doc k 



only 



plus $4 shipping 

and ha n dI ing 


DHL Y b 
E IDDRE 

UJ □ n - T 


uni 

. _ . 5T r 

R n Y m □ R E m R D E ! ! 


♦ RRm Cartridge is accessed via 
BRNK-5WlTEHlNG... and is ROT 
limited to use uith the PIXEL 

PRIMT PROFESSIONAL! 

LJatch for other Lemke Softujare 
to use this R RCTi e x p a n 5 i o n ! ! ! 


































































